Ecologicall Analysis of Cariaco Eukaryotic 18S libraries
Liz Suter
Started 5/26/2020; Completed summer 2021; Revisions added Oct-Nov 2021
Load libraries
library(tidyverse)Registered S3 methods overwritten by 'dbplyr':
method from
print.tbl_lazy
print.tbl_sql
[30m── [1mAttaching packages[22m ─────────────────────────────── tidyverse 1.3.1 ──[39m
[30m[32m✓[30m [34mggplot2[30m 3.3.5 [32m✓[30m [34mpurrr [30m 0.3.4
[32m✓[30m [34mtibble [30m 3.1.3 [32m✓[30m [34mdplyr [30m 1.0.7
[32m✓[30m [34mtidyr [30m 1.1.3 [32m✓[30m [34mstringr[30m 1.4.0
[32m✓[30m [34mreadr [30m 1.4.0 [32m✓[30m [34mforcats[30m 0.5.1[39m
[30m── [1mConflicts[22m ────────────────────────────────── tidyverse_conflicts() ──
[31mx[30m [34mdplyr[30m::[32mfilter()[30m masks [34mstats[30m::filter()
[31mx[30m [34mdplyr[30m::[32mlag()[30m masks [34mstats[30m::lag()[39mlibrary(phyloseq)Registered S3 method overwritten by 'data.table':
method from
print.data.table library(phangorn)Loading required package: apelibrary(readr)
library(ape)
library(vegan)Loading required package: permute
Loading required package: lattice
This is vegan 2.5-7
Attaching package: ‘vegan’
The following objects are masked from ‘package:phangorn’:
diversity, treedistlibrary(RColorBrewer)
library(microbiome)
microbiome R package (microbiome.github.com)
Copyright (C) 2011-2020 Leo Lahti,
Sudarshan Shetty et al. <microbiome.github.io>
Attaching package: ‘microbiome’
The following object is masked from ‘package:vegan’:
diversity
The following object is masked from ‘package:phangorn’:
diversity
The following object is masked from ‘package:ggplot2’:
alpha
The following object is masked from ‘package:base’:
transformlibrary(compositions)Welcome to compositions, a package for compositional data analysis.
Find an intro with "? compositions"
Attaching package: ‘compositions’
The following object is masked from ‘package:ape’:
balance
The following objects are masked from ‘package:stats’:
cor, cov, dist, var
The following objects are masked from ‘package:base’:
%*%, norm, scale, scale.defaultlibrary(SpiecEasi)
Attaching package: ‘SpiecEasi’
The following objects are masked from ‘package:compositions’:
alr, clrlibrary(otuSummary)
library(psych)
Attaching package: ‘psych’
The following objects are masked from ‘package:SpiecEasi’:
cor2cov, shannon
The following objects are masked from ‘package:compositions’:
ellipses, pairwisePlot
The following object is masked from ‘package:microbiome’:
alpha
The following objects are masked from ‘package:ggplot2’:
%+%, alphalibrary(Matrix)
Attaching package: ‘Matrix’
The following objects are masked from ‘package:SpiecEasi’:
tril, triu
The following objects are masked from ‘package:tidyr’:
expand, pack, unpacklibrary(igraph)
Attaching package: ‘igraph’
The following object is masked from ‘package:SpiecEasi’:
make_graph
The following object is masked from ‘package:compositions’:
normalize
The following object is masked from ‘package:microbiome’:
diversity
The following object is masked from ‘package:vegan’:
diversity
The following object is masked from ‘package:permute’:
permute
The following object is masked from ‘package:phangorn’:
diversity
The following objects are masked from ‘package:ape’:
edges, mst, ring
The following objects are masked from ‘package:dplyr’:
as_data_frame, groups, union
The following objects are masked from ‘package:purrr’:
compose, simplify
The following object is masked from ‘package:tidyr’:
crossing
The following object is masked from ‘package:tibble’:
as_data_frame
The following objects are masked from ‘package:stats’:
decompose, spectrum
The following object is masked from ‘package:base’:
unionlibrary(plotly)Registered S3 methods overwritten by 'htmltools':
method from
print.html tools:rstudio
print.shiny.tag tools:rstudio
print.shiny.tag.list tools:rstudio
Registered S3 method overwritten by 'htmlwidgets':
method from
print.htmlwidget tools:rstudio
Attaching package: ‘plotly’
The following object is masked from ‘package:igraph’:
groups
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layoutlibrary(egg)Loading required package: gridExtra
Attaching package: ‘gridExtra’
The following object is masked from ‘package:dplyr’:
combinelibrary(ggvegan)
# Report versions of packages
sessionInfo()R version 4.0.2 (2020-06-22)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Catalina 10.15.7
Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets methods
[7] base
other attached packages:
[1] ggvegan_0.1-0 egg_0.4.5 gridExtra_2.3
[4] plotly_4.9.2.2 igraph_1.2.6 Matrix_1.3-0
[7] psych_2.1.3 otuSummary_0.1.1 SpiecEasi_1.1.1
[10] compositions_2.0-0 microbiome_1.10.0 RColorBrewer_1.1-2
[13] vegan_2.5-7 lattice_0.20-41 permute_0.9-5
[16] phangorn_2.5.5 ape_5.4-1 phyloseq_1.32.0
[19] forcats_0.5.1 stringr_1.4.0 dplyr_1.0.7
[22] purrr_0.3.4 readr_1.4.0 tidyr_1.1.3
[25] tibble_3.1.3 ggplot2_3.3.5 tidyverse_1.3.1
loaded via a namespace (and not attached):
[1] Rtsne_0.15 VGAM_1.1-5 colorspace_2.0-2
[4] ellipsis_0.3.2 XVector_0.28.0 fs_1.5.0
[7] rstudioapi_0.13 ggrepel_0.9.1 fansi_0.5.0
[10] lubridate_1.7.10 xml2_1.3.2 codetools_0.2-18
[13] splines_4.0.2 mnormt_2.0.2 robustbase_0.93-6
[16] knitr_1.30 ade4_1.7-16 jsonlite_1.7.2
[19] broom_0.7.9 cluster_2.1.0 dbplyr_2.1.1
[22] compiler_4.0.2 httr_1.4.2 backports_1.2.1
[25] assertthat_0.2.1 lazyeval_0.2.2 cli_3.0.1
[28] htmltools_0.5.1.1 prettyunits_1.1.1 tools_4.0.2
[31] gtable_0.3.0 glue_1.4.2 reshape2_1.4.4
[34] fastmatch_1.1-0 Rcpp_1.0.7 Biobase_2.48.0
[37] cellranger_1.1.0 vctrs_0.3.8 Biostrings_2.56.0
[40] multtest_2.44.0 nlme_3.1-151 iterators_1.0.13
[43] tensorA_0.36.2 xfun_0.24 rvest_1.0.1
[46] lifecycle_1.0.0 DEoptimR_1.0-8 zlibbioc_1.34.0
[49] MASS_7.3-53 scales_1.1.1 hms_1.1.0
[52] parallel_4.0.2 biomformat_1.16.0 rhdf5_2.32.4
[55] huge_1.3.4.1 stringi_1.7.3 S4Vectors_0.26.1
[58] foreach_1.5.1 BiocGenerics_0.34.0 shape_1.4.6
[61] rlang_0.4.11 pkgconfig_2.0.3 Rhdf5lib_1.10.1
[64] htmlwidgets_1.5.3 tidyselect_1.1.1 plyr_1.8.6
[67] magrittr_2.0.1 R6_2.5.0 IRanges_2.22.2
[70] generics_0.1.0 DBI_1.1.1 pillar_1.6.2
[73] haven_2.3.1 withr_2.4.2 mgcv_1.8-33
[76] survival_3.2-7 bayesm_3.1-4 modelr_0.1.8
[79] pulsar_0.3.7 crayon_1.4.1 utf8_1.2.2
[82] tmvnsim_1.0-2 progress_1.2.2 grid_4.0.2
[85] readxl_1.3.1 data.table_1.13.4 reprex_2.0.1
[88] digest_0.6.27 stats4_4.0.2 munsell_0.5.0
[91] glmnet_4.1-1 viridisLite_0.4.0 quadprog_1.5-8 - Note for SpiecEasi, installation instructions are here. On Mac, there are issues with a dependency which I also had to update using these instructions
Prepare the data
Import
Metadata:
metadata <- read_csv("Metadata.csv")Import SRA table and match SRA IDs with sample IDs in metadata file
SRARunTable <- read_csv("sra_data/SraRunTable.txt")
metadata <- left_join(metadata, SRARunTable, by = 'Sample Name')DADA2 results:
# Import Count table. Skip first row of tsv file, which is just some text
count_table <- read_tsv(file="dada2_export/ASVs_counts.tsv")
# And specify that the first column of data are rownames
count_table <- column_to_rownames(count_table, var = colnames(count_table)[1])
# Import taxonomy of ASVs
taxonomy <- read_tsv(file="dada2_export/ASVs_taxonomy.tsv")
# And specify that the first column of data are rownames
taxonomy <- column_to_rownames(taxonomy, var = colnames(taxonomy)[1])QC and Filtering
Rarefaction curves
# Use rarecurve, from the Vegan package. Rarcurve expects the dataset as a dataframe so we need to use as.data.frame again:
count_table_df <- as.data.frame(count_table)
# Plot the rarefaction curves, color-coding by the colors listed in sample_info_tab, which indicate sample type, and transforming using t() again
# Running this 5-10 samples at a time because otherwise it takes a long time to render
rarecurve(t(count_table_df), step=100, cex=0.5, ylab="ASVs", label=T)Remove singletons
count_table_no_singletons <- filter(count_table,rowSums(count_table)>1)
# retains all ASVs (out of 14176)and change sample names from NCBI ID to our internal sample IDs
# Modify taxa names in count_table_no_singletons, which are the NCBI SRA numbers. Want to use our internal sample key
key <- SRARunTable %>% select(Run, 'Sample Name')
x <- (t(count_table_no_singletons))
x <- as.data.frame(cbind(x, Run = rownames(x)))
y <- t(left_join(x, key, by = "Run"))
colnames(y) <- y['Sample Name',]
y <- y[ !(rownames(y) %in% c('Sample Name', 'Run')), ]
count_table_2 <- type_convert(as.data.frame(y))Make Phylo Tree
This process takes a LONG time so run once and save .RData object In the Dada2 tools, there are no options to build a tree (unlike in Qiime2) but we can build it here using DECIPHER and phangorn
(Based on https://f1000research.com/articles/5-1492/v2)
Make an alignment using tools from Decipher (Note- alignment step takes several hours. Commented out for now. Only need to run once)
## import fasta
# fas <- "dada2_export/ASVs.fa"
# seqs <- readDNAStringSet(fas)
# seqs
#
# # perform the alignment
# aligned <- AlignSeqs(seqs) # automatically detects and uses all cores
#
# # view the alignment in a browser (optional)
# BrowseSeqs(aligned, highlight=0)
#
# # write out aligned sequence file
# writeXStringSet(aligned, file="ASVs.aligned.fasta")Use phangorn package to build tree. Here we are building a maximum likelihood neighbor-joining tree. (Also takes a while to run. Comment out for now.)
# phang.align <- phyDat(as(aligned, "matrix"), type="DNA") # convert to phyDat format
# dm <- dist.ml(phang.align) # calculate pairwise distance matrix
# treeNJ <- NJ(dm) # perform neighbor-joining tree method
# fit = pml(treeNJ, data=phang.align) # compute intermal max likelihoodSave and re-load dataset
Since the step above takes a long time, save all variables up to this point in environment as RData object
# save.image("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_tree.RData")Re-load
load("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_tree.RData")Make phyloseq objects
Here we will do ordinations using the phyloseq package, which first requires making phyloseq objects out of each of our input data tables (in the last tutorial, I imported the tree using phyloseq so it is already a phyloseq object)
ASV = otu_table(count_table_2, taxa_are_rows = TRUE)
TAX = tax_table(as.matrix(taxonomy))
META = sample_data(data.frame(metadata, row.names = metadata$`Sample Name`))
TREE = phy_tree(fit$tree)First check that the inputs are in compatible formats by checking for ASV names with the phyloseq function, taxa_names
head(taxa_names(TAX))
head(taxa_names(ASV))
head(taxa_names(TREE))And check sample names were also detected
head(sample_names(ASV))
head(sample_names(META))And make the phyloseq object
ps <- phyloseq(ASV, TAX, META , TREE)Check some features of the phyloseq object
rank_names(ps)
table(tax_table(ps)[, "Supergroup"], exclude = NULL)
unique(tax_table(ps)[, "Supergroup"])Filter out those ambigious Supergroup annotations- losing 471 ASVs
ps <- subset_taxa(ps, !is.na(Supergroup) & !Supergroup %in% c("", "NA"))
table(tax_table(ps)[, "Supergroup"], exclude = NULL)Check out the Division names
table(tax_table(ps)[, "Division"], exclude = NULL)Filter out any with “NA” as Division
ps <- subset_taxa(ps, !is.na(Division) & !Division %in% c(""))
table(tax_table(ps)[, "Division"], exclude = NULL)After the above, 13,427 ASVs remain from the original 14,177
Eliminate the libraries that didn’t have many sequences, AE3a198A, AE3b314A, AE2a200A, AE2b900AN, AE2a200B, AE2a267B, AE2a900BN
taxa_to_keep <- !sample_names(ps) %in% c("AE3a198A","AE3b314A","AE2a200A","AE2b900AN","AE2a200B","AE2a267B","AE2a900BN")
ps <- prune_samples(taxa_to_keep, ps)41 samples remain and stil 13,427 ASVs
Check rarefaction curve again to make sure those low-sqeuencing-effort samples have been removed
rarecurve(t(otu_table(ps)), step=100, cex=0.5, ylab="ASVs", label=T)Re-root tree
Have to do this because you may have removed the root of your tree when pruning). (I found this handy function from here which picks the longest branch to root from).
# first define function from link above to find furthest outgroup
pick_new_outgroup <- function(tree.unrooted){
require("magrittr")
require("data.table")
require("ape") # ape::Ntip
# tablify parts of tree that we need.
treeDT <-
cbind(
data.table(tree.unrooted$edge),
data.table(length = tree.unrooted$edge.length)
)[1:Ntip(tree.unrooted)] %>%
cbind(data.table(id = tree.unrooted$tip.label))
# Take the longest terminal branch as outgroup
new.outgroup <- treeDT[which.max(length)]$id
return(new.outgroup) }
# then run on my phyloseq tree
my.tree <- phy_tree(ps)
out.group <- pick_new_outgroup(my.tree)
out.group
# Then use this outgroup to root the tree
new.tree1 <- ape::root(my.tree, outgroup=out.group, resolve.root=TRUE)
phy_tree(ps) <- new.tree1
# Check if tree is binary (dichotomous not multichotomous)
is.binary.tree(phy_tree(ps))
# If false, would have to run
# new.tree2 <- ape::multi2di(new.tree1)
# phy_tree(ps) <- new.tree2
# phy_tree(ps)
Check phyla using bar plots
Check overall how the phyla are distributed among samples. Phyloseq makes this easy
# First aglomerate the ASVs at the phylum level using the phyloseq function, tax_glom
DivisionGlommed = tax_glom(ps, "Division")
# There are many phyla here, so have to make a custom color palette by interpolating from an existing one in RColorBrewer
colourCount = length(table(tax_table(ps)[, "Division"], exclude = NULL))
getPalette = colorRampPalette(brewer.pal(11, "Spectral"))
DivisionPalette = getPalette(colourCount)
# and plot
plot_bar(DivisionGlommed, x = "Sample", fill = "Division") +
scale_fill_manual(values = DivisionPalette)Plot compositional (relative abundances) instead of absolute abundance using microbiome::transform
ps_ra <- microbiome::transform(ps, transform = "compositional")
(otu_table(ps_ra))[1:5,1:5]# Then aglomerate the ASVs at the phylum level using the phyloseq function, tax_glom
DivisionGlommed_RA = tax_glom(ps_ra, "Division")
# and plot
Division_barplot <- plot_bar(DivisionGlommed_RA, x = "Sample", fill = "Division") +
scale_fill_manual(values = DivisionPalette) +
theme(legend.text = element_text(size = 10))
Division_barplot
# export
ggsave("Figures/Division_barplot.eps",Division_barplot, width = 15, height = 5, units = c("in"))Lots of dinoflagellates and radiolaria. Makes sense. But the above is the distribution from all samples. Next make plots that indicate distributions across environmental gradients. Calculate averages and use bubble plots
Calculate averages from replicates
Get average relative abundances from sample replicates
otu_table_mean_ra <-
mutate(data.frame(otu_table(ps_ra)), "103A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a103A","AE3b103A")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "198A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3b198A")), na.rm = TRUE)) %>% # Sample AE3a198A was removed
mutate(data.frame(otu_table(ps_ra)), "234A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a234A","AE3b234A")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "295A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a295A","AE3b295A")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "314A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a314A")), na.rm = TRUE)) %>% # Sample AE3b314A was removed
mutate(data.frame(otu_table(ps_ra)), "900AM" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a900AM","AE1b900AM")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "103B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a103B","AE3b103B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "198B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a198B","AE3b198B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "234B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a234B","AE3b234B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "295B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a295B","AE3b295B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "314B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a314B","AE3b314B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "900BM" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE3a900BM","AE1b900BM")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "143A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a143A","AE2b143A")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "200A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2b200A")), na.rm = TRUE)) %>% # AE2a200A was removed
mutate(data.frame(otu_table(ps_ra)), "237A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a237A","AE2b237A")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "247A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a247A","AE2b247A")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "267A" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a267A","AE2b267A")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "900AN" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a900AN")), na.rm = TRUE)) %>% # AE2b900AN was removed
mutate(data.frame(otu_table(ps_ra)), "143B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a143B","AE2b143B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "200B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2b200B")), na.rm = TRUE)) %>% # AE2a200B was removed
mutate(data.frame(otu_table(ps_ra)), "237B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a237B","AE2b237B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "247B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2a247B","AE2b247B")), na.rm = TRUE)) %>%
mutate(data.frame(otu_table(ps_ra)), "267B" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2b267B")), na.rm = TRUE)) %>% # AE2a267B was removed
mutate(data.frame(otu_table(ps_ra)), "900BN" = rowMeans(select(data.frame(otu_table(ps_ra)), c("AE2b900BN")), na.rm = TRUE)) # AE2a900BN was removed
otu_table_mean_ra <- otu_table_mean_ra[,unique(metadata$Replicate)]
otu_table_mean_raMake into new phyloseq object
metadata2 <- unique(select(metadata,!c('Sample Name',Type,colnames(SRARunTable))))
META2 <- sample_data(data.frame(metadata2, row.names = metadata2$Replicate))
ps_ra_mean <- phyloseq(otu_table(otu_table_mean_ra, taxa_are_rows = TRUE), TAX, TREE, META2)# First aglomerate the ASVs at the phylum level using the phyloseq function, tax_glom
ps_ra_mean_division <- tax_glom(ps_ra_mean, "Division")
# and check by bar plotting
plot_bar(ps_ra_mean_division, x = "Sample", fill = "Division") +
scale_fill_manual(values = DivisionPalette)Abundance Plots
Divisions
Prepare data
Extract mean relative abundance, glommed by division, from the phyloseq object and pair it to taxonomic data
division_df <- data.frame(otu_table(ps_ra_mean_division))
colnames(division_df) <- colnames(otu_table(ps_ra_mean_division))
division_df$ASV <- rownames(division_df)
otu_table_mean_ra <- left_join(division_df, as_tibble(taxonomy, rownames = "ASV"), by = "ASV")
otu_table_mean_raSome manual curating for plottin
# Make a new column that has Supergroup-Division in same colum
otu_table_mean_ra$SupergroupDivision <- paste(otu_table_mean_ra$Supergroup, otu_table_mean_ra$Division)
otu_table_mean_raPivot longer
otu_table_mean_ra <- pivot_longer(otu_table_mean_ra, cols = unique(metadata$Replicate), names_to = "Replicate", values_to = "Mean_RA")
otu_table_mean_raJoin metadata
otu_table_mean_ra <- left_join(otu_table_mean_ra, unique(select(metadata, c("Replicate", "Depth", "SizeFraction", "Season", "OxCond", "Fluorescence", "BeamAtt", "O2", "Temp", "Salinity", "H2S", "ParticulateS", "TZVS", "CH4", "NO3", "NO2", "NH4", "PO4", "Chemoautotrophy", "BNP", "MicroAbun(x10^8 L^-1)", "FlagAbun(x10^5 L-1)", "VLP(x10^8 L-1)"))), by = "Replicate")
# Replace zeroes in RA with NA (better for plotting)
otu_table_mean_ra$Mean_RA[otu_table_mean_ra$Mean_RA == 0] <- NA
otu_table_mean_raBubble Plot of Divisions
# reorder some factors to make them plot in the order I want
otu_table_mean_ra$OxCond <- factor(otu_table_mean_ra$OxCond, levels = c("Oxycline", "ShallowAnoxic", "Euxinic"))
otu_table_mean_ra$SizeFraction <- factor(otu_table_mean_ra$SizeFraction, levels = c("PA", "FL"))
euk_divisions_bubbleplot_color <- ggplot(otu_table_mean_ra,aes (x = as.character(Depth), y = reorder(SupergroupDivision, Mean_RA, function(x){sum(x,na.rm = TRUE)}), color = OxCond)) +
geom_point(aes(size =Mean_RA))+
facet_wrap(Season~SizeFraction, scales = "free_x", drop= TRUE, ncol = 4) +
scale_size(range = c(1,15)) +
scale_size_area(breaks = c(0,.25,.5,.75,1), max_size = 6) +
xlab("Depth") +
ylab("") +
labs(size="Relative Abundance", color = "Redox Condition") +
scale_color_manual(values = c("blue", "red", "brown4")) +
theme_bw() +
theme(axis.text = element_text(size=8),
axis.text.x = element_text(size=8, angle = 45, hjust = 1),
axis.title = element_text(size=8),
legend.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2),
legend.box.margin=margin(-10,-10,-10,-10),
plot.margin=grid::unit(c(0,0,0,0), "mm"))
euk_divisions_bubbleplot_colorSave figure
# set explicit panel size so they will be consistent for all figures
euk_divisions_bubbleplot_color <- set_panel_size(euk_divisions_bubbleplot_color, width = unit(22, "mm"), height = unit(100, "mm"))
ggsave(filename = "Figures/euk_divisions_bubbleplot_color.eps", plot = euk_divisions_bubbleplot_color, units = c("mm"), width = 180, height = 125, dpi = 300)Orders within Alveolata
Prepare data
Filter to only Alveolates; glom by order
keeptaxa <- taxa_names(ps_ra_mean)[(as.data.frame(tax_table(ps_ra_mean))$Supergroup %in% c("Alveolata"))]
ps_ra_mean_alveolates <- prune_taxa(keeptaxa, ps_ra_mean)
ps_ra_mean_alveolate_orders <- tax_glom(ps_ra_mean_alveolates, "Order")
aveloates_df <- data.frame(otu_table(ps_ra_mean_alveolate_orders))
colnames(aveloates_df) <- colnames(otu_table(ps_ra_mean_alveolate_orders))
aveloates_df$ASV <- rownames(aveloates_df)
otu_table_mean_ra <- left_join(aveloates_df, as_tibble(taxonomy, rownames = "ASV"), by = "ASV")
otu_table_mean_raSome manual curating for plottin
# Make a new column that has descriptive taxonomy
otu_table_mean_ra$Descriptive <- paste(otu_table_mean_ra$Division, otu_table_mean_ra$Class, otu_table_mean_ra$Order)
otu_table_mean_raPivot longer
otu_table_mean_ra <- pivot_longer(otu_table_mean_ra, cols = unique(metadata$Replicate), names_to = "Replicate", values_to = "Mean_RA")
otu_table_mean_raJoin metadata
otu_table_mean_ra <- left_join(otu_table_mean_ra, unique(select(metadata, c("Replicate", "Depth", "SizeFraction", "Season", "OxCond", "Fluorescence", "BeamAtt", "O2", "Temp", "Salinity", "H2S", "ParticulateS", "TZVS", "CH4", "NO3", "NO2", "NH4", "PO4", "Chemoautotrophy", "BNP", "MicroAbun(x10^8 L^-1)", "FlagAbun(x10^5 L-1)", "VLP(x10^8 L-1)"))), by = "Replicate")
# Replace zeroes in RA with NA (better for plotting)
otu_table_mean_ra$Mean_RA[otu_table_mean_ra$Mean_RA == 0] <- NA
otu_table_mean_raShorten some labels to make space in plot
otu_table_mean_ra[otu_table_mean_ra == c("Ciliophora Cyclotrichium_like_organism Cyclotrichium_like_organism_X")] <- c("Cilio. Cyclotrichium_like Cyclotrichium_like")
otu_table_mean_ra[otu_table_mean_ra == c("Apicomplexa Gregarinomorphea Gregarines_GRE2")] <- c("Apicom. Gregarinomorphea GRE2")
otu_table_mean_ra[otu_table_mean_ra == c("Apicomplexa Gregarinomorphea Eugregarinorida")] <- c("Apicom. Gregarinomorphea Eugregarinorida")
otu_table_mean_ra[otu_table_mean_ra == c("Apicomplexa Coccidiomorphea Agamococcidiorida")] <- c("Apicom. Coccidiomorphea Agamococcidiorida")
otu_table_mean_ra[otu_table_mean_ra == c("Dinoflagellata Ellobiophyceae Thalassomycetales")] <- c("Dino. Ellobiophyceae Thalassomycetales")
otu_table_mean_ra[otu_table_mean_ra == c("Ciliophora Oligohymenophorea Scuticociliatia_1")] <- c("Cilio. Oligohymenophorea Scuticociliatia_1")
otu_table_mean_ra[otu_table_mean_ra == c("Apicomplexa Apicomplexa_X Apicomplexa_XX")] <- c("Apicom. Apicomplexa_X Apicomplexa_XX")
otu_table_mean_raBubble Plot of Orders within Alveolata
# reorder some factors to make them plot in the order I want
otu_table_mean_ra$OxCond <- factor(otu_table_mean_ra$OxCond, levels = c("Oxycline", "ShallowAnoxic", "Euxinic"))
otu_table_mean_ra$SizeFraction <- factor(otu_table_mean_ra$SizeFraction, levels = c("PA", "FL"))
alveolata_bubbleplot_color <- ggplot(otu_table_mean_ra,aes (x = as.character(Depth), y = reorder(Descriptive, Mean_RA, function(x){sum(x,na.rm = TRUE)}), color = OxCond)) +
geom_point(aes(size =Mean_RA))+
facet_wrap(Season~SizeFraction, scales = "free_x", drop= TRUE, ncol = 4) +
scale_size(range = c(1,15)) +
scale_size_area(breaks = c(0,.25,.5,.75,1), max_size = 6) +
xlab("Depth") +
ylab("") +
labs(size="Relative Abundance", color = "Redox Condition") +
scale_color_manual(values = c("blue", "red", "brown4")) +
theme_bw() +
theme(axis.text = element_text(size=8),
axis.text.x = element_text(size=8, angle = 45, hjust = 1),
axis.title = element_text(size=8),
legend.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2),
legend.box.margin=margin(-10,-10,-10,-10),
plot.margin=grid::unit(c(0,0,0,0), "mm"))
alveolata_bubbleplot_colorSave figure
# set explicit panel size so they will be consistent for all figures
alveolata_bubbleplot_color <- set_panel_size(alveolata_bubbleplot_color, width = unit(20, "mm"), height = unit(125, "mm"))
ggsave(filename = "Figures/alveolata_bubbleplot_color.eps", plot = alveolata_bubbleplot_color, units = c("mm"), width = 180, height = 150, dpi = 300)Orders within Rhizaria
Prepare data
Filter to only Rhizaria; glom by order
keeptaxa <- taxa_names(ps_ra_mean)[(as.data.frame(tax_table(ps_ra_mean))$Supergroup %in% c("Rhizaria"))]
ps_ra_mean_rhizaria <- prune_taxa(keeptaxa, ps_ra_mean)
ps_ra_mean_rhizaria_orders <- tax_glom(ps_ra_mean_rhizaria, "Order")
rhizaria_df <- data.frame(otu_table(ps_ra_mean_rhizaria_orders))
colnames(rhizaria_df) <- colnames(otu_table(ps_ra_mean_rhizaria_orders))
rhizaria_df$ASV <- rownames(rhizaria_df)
otu_table_mean_ra <- left_join(rhizaria_df, as_tibble(taxonomy, rownames = "ASV"), by = "ASV")
otu_table_mean_raSome manual curating for plotting
# Make a new column that has descriptive taxonomy
otu_table_mean_ra$Descriptive <- paste(otu_table_mean_ra$Division, otu_table_mean_ra$Class, otu_table_mean_ra$Order)
otu_table_mean_raPivot longer
otu_table_mean_ra <- pivot_longer(otu_table_mean_ra, cols = unique(metadata$Replicate), names_to = "Replicate", values_to = "Mean_RA")
otu_table_mean_raJoin metadata
otu_table_mean_ra <- left_join(otu_table_mean_ra, unique(select(metadata, c("Replicate", "Depth", "SizeFraction", "Season", "OxCond", "Fluorescence", "BeamAtt", "O2", "Temp", "Salinity", "H2S", "ParticulateS", "TZVS", "CH4", "NO3", "NO2", "NH4", "PO4", "Chemoautotrophy", "BNP", "MicroAbun(x10^8 L^-1)", "FlagAbun(x10^5 L-1)", "VLP(x10^8 L-1)"))), by = "Replicate")
# Replace zeroes in RA with NA (better for plotting)
otu_table_mean_ra$Mean_RA[otu_table_mean_ra$Mean_RA == 0] <- NA
otu_table_mean_raShorten some labels to make space in plot
otu_table_mean_ra[otu_table_mean_ra == c("Radiolaria Acantharea Arthracanthida-Symphyacanthida")] <- c("Radiolaria Acantharea A-S")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Chlorarachniophyceae Chlorarachniophyceae_X")] <- c("Cercozoa Chlor. Chlor._X")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Thecofilosea Filosa-Thecofilosea_X")] <- c("Cercozoa F-T F-T_X")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Granofilosea Filosa-Granofilosea_X")] <- c("Cercozoa F-G. F-G._X")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Chlorarachniophyceae Chlorarachnida")] <- c("Cercozoa Chlor. Chlorarachnida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Imbricatea Thaumatomonadida")] <- c("Cercozoa F-I Thaumatomonadida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Imbricatea Filosa-Imbricatea_X")] <- c("Cercozoa F-I F-I_X")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Endomyxa-Phytomyxea Phagomyxida")] <- c("Cercozoa E-P Phagomyxida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Sarcomonadea Cercomonadida")] <- c("Cercozoa F-S Cercomonadida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Novel-clade-10-12 Novel-clade-12")] <- c("Cercozoa N-C−10−12 N-C−12")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Thecofilosea Ventricleftida")] <- c("Cercozoa F-T Ventricleftida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Imbricatea Marimonadida")] <- c("Cercozoa F-I Marimonadida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Thecofilosea Cryomonadida")] <- c("Cercozoa F-T Cryomonadida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Sarcomonadea Glissomonadida")] <- c("Cercozoa F-S Glissomonadida")
otu_table_mean_ra[otu_table_mean_ra == c("Cercozoa Filosa-Imbricatea Euglyphida")] <- c("Cercozoa F-I Euglyphida")
otu_table_mean_raBubble Plot of Orders within Rhizaria
# reorder some factors to make them plot in the order I want
otu_table_mean_ra$OxCond <- factor(otu_table_mean_ra$OxCond, levels = c("Oxycline", "ShallowAnoxic", "Euxinic"))
otu_table_mean_ra$SizeFraction <- factor(otu_table_mean_ra$SizeFraction, levels = c("PA", "FL"))
rhizaria_bubbleplot_color <- ggplot(otu_table_mean_ra,aes (x = as.character(Depth), y = reorder(Descriptive, Mean_RA, function(x){sum(x,na.rm = TRUE)}), color = OxCond)) +
geom_point(aes(size =Mean_RA))+
facet_wrap(Season~SizeFraction, scales = "free_x", drop= TRUE, ncol = 4) +
scale_size(range = c(1,15)) +
scale_size_area(breaks = c(0,.25,.5,.75,1), max_size = 6) +
xlab("Depth") +
ylab("") +
labs(size="Relative Abundance", color = "Redox Condition") +
scale_color_manual(values = c("blue", "red", "brown4")) +
theme_bw() +
theme(axis.text = element_text(size=8),
axis.text.x = element_text(size=8, angle = 45, hjust = 1),
axis.title = element_text(size=8),
legend.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2),
legend.box.margin=margin(-10,-10,-10,-10),
plot.margin=grid::unit(c(0,0,0,0), "mm"))
rhizaria_bubbleplot_colorSave figure
# set explicit panel size so they will be consistent for all figures
rhizaria_bubbleplot_color <- set_panel_size(rhizaria_bubbleplot_color, width = unit(20, "mm"), height = unit(100, "mm"))
ggsave(filename = "Figures/rhizaria_bubbleplot_color.eps", plot = rhizaria_bubbleplot_color, units = c("mm"), width = 180, height = 125, dpi = 300)Orders within Opisthokonta
Prepare data
Filter to only Opisthokonta; glom by order
keeptaxa <- taxa_names(ps_ra_mean)[(as.data.frame(tax_table(ps_ra_mean))$Supergroup %in% c("Opisthokonta"))]
ps_ra_mean_opisthokonta <- prune_taxa(keeptaxa, ps_ra_mean)
ps_ra_mean_opisthokonta_orders <- tax_glom(ps_ra_mean_opisthokonta, "Order")
opisthokonta_df <- data.frame(otu_table(ps_ra_mean_opisthokonta_orders))
colnames(opisthokonta_df) <- colnames(otu_table(ps_ra_mean_opisthokonta_orders))
opisthokonta_df$ASV <- rownames(opisthokonta_df)
otu_table_mean_ra <- left_join(opisthokonta_df, as_tibble(taxonomy, rownames = "ASV"), by = "ASV")
otu_table_mean_raSome manual curating for plottin
# Make a new column that has descriptive taxonomy
otu_table_mean_ra$Descriptive <- paste(otu_table_mean_ra$Division, otu_table_mean_ra$Class, otu_table_mean_ra$Order)
otu_table_mean_raPivot longer
otu_table_mean_ra <- pivot_longer(otu_table_mean_ra, cols = unique(metadata$Replicate), names_to = "Replicate", values_to = "Mean_RA")
otu_table_mean_raJoin metadata
otu_table_mean_ra <- left_join(otu_table_mean_ra, unique(select(metadata, c("Replicate", "Depth", "SizeFraction", "Season", "OxCond", "Fluorescence", "BeamAtt", "O2", "Temp", "Salinity", "H2S", "ParticulateS", "TZVS", "CH4", "NO3", "NO2", "NH4", "PO4", "Chemoautotrophy", "BNP", "MicroAbun(x10^8 L^-1)", "FlagAbun(x10^5 L-1)", "VLP(x10^8 L-1)"))), by = "Replicate")
# Replace zeroes in RA with NA (better for plotting)
otu_table_mean_ra$Mean_RA[otu_table_mean_ra$Mean_RA == 0] <- NA
otu_table_mean_raShorten some labels to make space in plot
otu_table_mean_ra[otu_table_mean_ra == c("Choanoflagellida Choanoflagellatea Acanthoecida")] <- c("Choanof. Ch. Acanthoecida")
otu_table_mean_ra[otu_table_mean_ra == c("Choanoflagellida Choanoflagellatea Craspedida")] <- c("Choanof. Ch. Craspedida")
otu_table_mean_ra[otu_table_mean_ra == c("Choanoflagellida Choanoflagellatea Choanoflagellatea_X")] <- c("Choanof. Ch. Choanoflagellatea_X")
otu_table_mean_ra[otu_table_mean_ra == c("Choanoflagellida Choanoflagellida_X Choanoflagellida_XX")] <- c("Choanof. Choanof._X Choanof._XX")
otu_table_mean_ra[otu_table_mean_ra == c("Mesomycetozoa Ichthyosporea Ichthyosphonida")] <- c("Mesomy. Ichthyosporea Ichthyosphonida")
otu_table_mean_ra[otu_table_mean_ra == c("Opisthokonta_X Opisthokonta_XX Opisthokonta_XXX")] <- c("Opis._X Opis._XX Opis._XXX")
otu_table_mean_raBubble Plot of Orders within Opisthokonta
# reorder some factors to make them plot in the order I want
otu_table_mean_ra$OxCond <- factor(otu_table_mean_ra$OxCond, levels = c("Oxycline", "ShallowAnoxic", "Euxinic"))
otu_table_mean_ra$SizeFraction <- factor(otu_table_mean_ra$SizeFraction, levels = c("PA", "FL"))
opithokonta_bubbleplot_color <- ggplot(otu_table_mean_ra,aes (x = as.character(Depth), y = reorder(Descriptive, Mean_RA, function(x){sum(x,na.rm = TRUE)}), color = OxCond)) +
geom_point(aes(size =Mean_RA))+
facet_wrap(Season~SizeFraction, scales = "free_x", drop= TRUE, ncol = 4) +
scale_size(range = c(1,15)) +
scale_size_area(breaks = c(0,.1,.2,.3), max_size = 6) +
xlab("Depth") +
ylab("") +
labs(size="Relative Abundance", color = "Redox Condition") +
scale_color_manual(values = c("blue", "red", "brown4")) +
theme_bw() +
theme(axis.text = element_text(size=8),
axis.text.x = element_text(size=8, angle = 45, hjust = 1),
axis.title = element_text(size=8),
legend.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2),
legend.box.margin=margin(-10,-10,-10,-10),
plot.margin=grid::unit(c(0,0,0,0), "mm"))
opithokonta_bubbleplot_colorSave figure
# set explicit panel size so they will be consistent for all figures
opithokonta_bubbleplot_color <- set_panel_size(opithokonta_bubbleplot_color, width = unit(20, "mm"), height = unit(100, "mm"))
ggsave(filename = "Figures/opithokonta_bubbleplot_color.eps", plot = opithokonta_bubbleplot_color, units = c("mm"), width = 180, height = 125, dpi = 300)Classes within Stramenopiles
Prepare data
Filter to only Stramenopiles; glom by class (more meaningful than Order in this case)
keeptaxa <- taxa_names(ps_ra_mean)[(as.data.frame(tax_table(ps_ra_mean))$Supergroup %in% c("Stramenopiles"))]
ps_ra_mean_stramenopiles <- prune_taxa(keeptaxa, ps_ra_mean)
ps_ra_mean_stramenopiles_classes <- tax_glom(ps_ra_mean_stramenopiles, "Class")
stramenopiles_df <- data.frame(otu_table(ps_ra_mean_stramenopiles_classes))
colnames(stramenopiles_df) <- colnames(otu_table(ps_ra_mean_stramenopiles_classes))
stramenopiles_df$ASV <- rownames(stramenopiles_df)
otu_table_mean_ra <- left_join(stramenopiles_df, as_tibble(taxonomy, rownames = "ASV"), by = "ASV")
otu_table_mean_raSome manual curating for plottin
# Make a new column that has descriptive taxonomy
otu_table_mean_ra$Descriptive <- paste(otu_table_mean_ra$Division, otu_table_mean_ra$Class)
otu_table_mean_raPivot longer
otu_table_mean_ra <- pivot_longer(otu_table_mean_ra, cols = unique(metadata$Replicate), names_to = "Replicate", values_to = "Mean_RA")
otu_table_mean_raJoin metadata
otu_table_mean_ra <- left_join(otu_table_mean_ra, unique(select(metadata, c("Replicate", "Depth", "SizeFraction", "Season", "OxCond", "Fluorescence", "BeamAtt", "O2", "Temp", "Salinity", "H2S", "ParticulateS", "TZVS", "CH4", "NO3", "NO2", "NH4", "PO4", "Chemoautotrophy", "BNP", "MicroAbun(x10^8 L^-1)", "FlagAbun(x10^5 L-1)", "VLP(x10^8 L-1)"))), by = "Replicate")
# Replace zeroes in RA with NA (better for plotting)
otu_table_mean_ra$Mean_RA[otu_table_mean_ra$Mean_RA == 0] <- NA
otu_table_mean_raShorten some labels to make space in plot
otu_table_mean_ra[otu_table_mean_ra == c("Stramenopiles_X Stramenopiles_XX")] <- c("Strameno._X Strameno._XX")
otu_table_mean_ra[otu_table_mean_ra == c("Stramenopiles_X Stramenopiles_X-Group-7")] <- c("Strameno._X Strameno._X−Group−7")
otu_table_mean_ra[otu_table_mean_ra == c("Stramenopiles_X MAST-21")] <- c("Strameno._X MAST−21")
otu_table_mean_ra[otu_table_mean_ra == c("Stramenopiles_X MAST-25")] <- c("Strameno._X MAST-25")
otu_table_mean_ra[otu_table_mean_ra == c("Stramenopiles_X Stramenopiles_X-Group-4")] <- c("Strameno._X Strameno._X−Group−4")
otu_table_mean_ra[otu_table_mean_ra == c("Stramenopiles_X Stramenopiles_X-Group-6")] <- c("Strameno._X Strameno._X−Group−6")
otu_table_mean_ra[otu_table_mean_ra == c("Stramenopiles_X Stramenopiles_X-Group-8")] <- c("Strameno._X Strameno._X−Group−8")
otu_table_mean_raBubble Plot of Orders within Stramenopiles
# reorder some factors to make them plot in the order I want
otu_table_mean_ra$OxCond <- factor(otu_table_mean_ra$OxCond, levels = c("Oxycline", "ShallowAnoxic", "Euxinic"))
otu_table_mean_ra$SizeFraction <- factor(otu_table_mean_ra$SizeFraction, levels = c("PA", "FL"))
stramenopiles_bubbleplot_color <- ggplot(otu_table_mean_ra,aes (x = as.character(Depth), y = reorder(Descriptive, Mean_RA, function(x){sum(x,na.rm = TRUE)}), color = OxCond)) +
geom_point(aes(size =Mean_RA))+
facet_wrap(Season~SizeFraction, scales = "free_x", drop= TRUE, ncol = 4) +
scale_size(range = c(1,15)) +
scale_size_area(breaks = c(0,.1,.2,.3), max_size = 6) +
xlab("Depth") +
ylab("") +
labs(size="Relative Abundance", color = "Redox Condition") +
scale_color_manual(values = c("blue", "red", "brown4")) +
theme_bw() +
theme(axis.text = element_text(size=8),
axis.text.x = element_text(size=8, angle = 45, hjust = 1),
axis.title = element_text(size=8),
legend.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2),
legend.box.margin=margin(-10,-10,-10,-10),
plot.margin=grid::unit(c(0,0,0,0), "mm"))
stramenopiles_bubbleplot_colorSave figure
# set explicit panel size so they will be consistent for all figures
stramenopiles_bubbleplot_color <- set_panel_size(stramenopiles_bubbleplot_color, width = unit(22, "mm"), height = unit(115, "mm"))
ggsave(filename = "Figures/stramenopiles_bubbleplot_color.eps", plot = stramenopiles_bubbleplot_color, units = c("mm"), width = 180, height = 150, dpi = 300)Diversity
Calculate Shannon’s diversity using vegan
shannons <- vegan::diversity(t(otu_table(ps)), index = "shannon")
shannons <- t(shannons)
shannons AE3a103A AE3b103A AE1b900AM AE3a103B AE3b103B AE3a198B AE3b198B AE3a234B AE3b234B
[1,] 4.871221 4.956114 2.916447 4.192101 5.048457 5.352167 5.143548 5.169616 4.959116
AE3a295B AE3b295B AE3a314B AE3b198A AE3b314B AE3a900BM AE1b900BM AE2a143A
[1,] 2.736109 3.53949 2.780448 4.391812 3.143426 3.137984 2.137569 3.083671
AE2b143A AE2b200A AE2a237A AE2b237A AE2a247A AE3a234A AE2b247A AE2a267A AE2b267A
[1,] 4.690686 3.128682 4.191647 4.308389 2.398659 5.334367 2.36533 3.826925 3.929226
AE2a900AN AE2a143B AE2b143B AE2b200B AE2a237B AE3b234A AE2b237B AE2a247B AE2b247B
[1,] 3.047765 4.962882 3.019449 4.772924 2.413723 4.62931 3.37624 2.595961 2.714695
AE2b267B AE2b900BN AE3a295A AE3b295A AE3a314A AE3a900AM
[1,] 4.361093 4.492629 3.07776 2.638438 4.522401 3.592396Average the replicates
shannons_mean <-
mutate(data.frame(shannons), "103A" = rowMeans(select(data.frame(shannons), c("AE3a103A","AE3b103A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "198A" = rowMeans(select(data.frame(shannons), c("AE3b198A")), na.rm = TRUE)) %>% # Sample AE3a198A was removed
mutate(data.frame(shannons), "234A" = rowMeans(select(data.frame(shannons), c("AE3a234A","AE3b234A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "295A" = rowMeans(select(data.frame(shannons), c("AE3a295A","AE3b295A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "314A" = rowMeans(select(data.frame(shannons), c("AE3a314A")), na.rm = TRUE)) %>% # Sample AE3b314A was removed
mutate(data.frame(shannons), "900AM" = rowMeans(select(data.frame(shannons), c("AE3a900AM","AE1b900AM")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "103B" = rowMeans(select(data.frame(shannons), c("AE3a103B","AE3b103B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "198B" = rowMeans(select(data.frame(shannons), c("AE3a198B","AE3b198B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "234B" = rowMeans(select(data.frame(shannons), c("AE3a234B","AE3b234B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "295B" = rowMeans(select(data.frame(shannons), c("AE3a295B","AE3b295B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "314B" = rowMeans(select(data.frame(shannons), c("AE3a314B","AE3b314B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "900BM" = rowMeans(select(data.frame(shannons), c("AE3a900BM","AE1b900BM")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "143A" = rowMeans(select(data.frame(shannons), c("AE2a143A","AE2b143A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "200A" = rowMeans(select(data.frame(shannons), c("AE2b200A")), na.rm = TRUE)) %>% # AE2a200A was removed
mutate(data.frame(shannons), "237A" = rowMeans(select(data.frame(shannons), c("AE2a237A","AE2b237A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "247A" = rowMeans(select(data.frame(shannons), c("AE2a247A","AE2b247A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "267A" = rowMeans(select(data.frame(shannons), c("AE2a267A","AE2b267A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "900AN" = rowMeans(select(data.frame(shannons), c("AE2a900AN")), na.rm = TRUE)) %>% # AE2b900AN was removed
mutate(data.frame(shannons), "143B" = rowMeans(select(data.frame(shannons), c("AE2a143B","AE2b143B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "200B" = rowMeans(select(data.frame(shannons), c("AE2b200B")), na.rm = TRUE)) %>% # AE2a200B was removed
mutate(data.frame(shannons), "237B" = rowMeans(select(data.frame(shannons), c("AE2a237B","AE2b237B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "247B" = rowMeans(select(data.frame(shannons), c("AE2a247B","AE2b247B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "267B" = rowMeans(select(data.frame(shannons), c("AE2b267B")), na.rm = TRUE)) %>% # AE2a267B was removed
mutate(data.frame(shannons), "900BN" = rowMeans(select(data.frame(shannons), c("AE2b900BN")), na.rm = TRUE)) # AE2a900BN was removed
shannons_mean <- shannons_mean[,unique(metadata$Replicate)]
shannons_meanGet std deviation for each correspinding mean
shannons_sd <-
mutate(data.frame(shannons), "103A" = sd(select(data.frame(shannons), c("AE3a103A","AE3b103A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "198A" = sd(select(data.frame(shannons), c("AE3b198A")), na.rm = TRUE)) %>% # Sample AE3a198A was removed
mutate(data.frame(shannons), "234A" = sd(select(data.frame(shannons), c("AE3a234A","AE3b234A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "295A" = sd(select(data.frame(shannons), c("AE3a295A","AE3b295A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "314A" = sd(select(data.frame(shannons), c("AE3a314A")), na.rm = TRUE)) %>% # Sample AE3b314A was removed
mutate(data.frame(shannons), "900AM" = sd(select(data.frame(shannons), c("AE3a900AM","AE1b900AM")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "103B" = sd(select(data.frame(shannons), c("AE3a103B","AE3b103B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "198B" = sd(select(data.frame(shannons), c("AE3a198B","AE3b198B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "234B" = sd(select(data.frame(shannons), c("AE3a234B","AE3b234B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "295B" = sd(select(data.frame(shannons), c("AE3a295B","AE3b295B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "314B" = sd(select(data.frame(shannons), c("AE3a314B","AE3b314B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "900BM" = sd(select(data.frame(shannons), c("AE3a900BM","AE1b900BM")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "143A" = sd(select(data.frame(shannons), c("AE2a143A","AE2b143A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "200A" = sd(select(data.frame(shannons), c("AE2b200A")), na.rm = TRUE)) %>% # AE2a200A was removed
mutate(data.frame(shannons), "237A" = sd(select(data.frame(shannons), c("AE2a237A","AE2b237A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "247A" = sd(select(data.frame(shannons), c("AE2a247A","AE2b247A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "267A" = sd(select(data.frame(shannons), c("AE2a267A","AE2b267A")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "900AN" = sd(select(data.frame(shannons), c("AE2a900AN")), na.rm = TRUE)) %>% # AE2b900AN was removed
mutate(data.frame(shannons), "143B" = sd(select(data.frame(shannons), c("AE2a143B","AE2b143B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "200B" = sd(select(data.frame(shannons), c("AE2b200B")), na.rm = TRUE)) %>% # AE2a200B was removed
mutate(data.frame(shannons), "237B" = sd(select(data.frame(shannons), c("AE2a237B","AE2b237B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "247B" = sd(select(data.frame(shannons), c("AE2a247B","AE2b247B")), na.rm = TRUE)) %>%
mutate(data.frame(shannons), "267B" = sd(select(data.frame(shannons), c("AE2b267B")), na.rm = TRUE)) %>% # AE2a267B was removed
mutate(data.frame(shannons), "900BN" = sd(select(data.frame(shannons), c("AE2b900BN")), na.rm = TRUE)) # AE2a900BN was removed
shannons_sd <- shannons_sd[,unique(metadata$Replicate)]
shannons_sd[is.na(shannons_sd)] <- 0
shannons_sdPrepare data for plotting
# Pivot longer
shannons_mean <- pivot_longer(shannons_mean, cols = unique(metadata$Replicate), names_to = "Replicate", values_to = "Shannons")
shannons_sd <- pivot_longer(shannons_sd, cols = unique(metadata$Replicate), names_to = "Replicate", values_to = "StDev")
# Join metadata
shannons_mean <- left_join(shannons_mean, shannons_sd)Joining, by = "Replicate"# export this for table in manuscript
write_csv(shannons_mean, "Figures/shannons.csv")
# add metadata for plotting
shannons_mean <- left_join(shannons_mean, unique(select(metadata, c("Replicate", "Depth", "SizeFraction", "Season", "OxCond", "Fluorescence", "BeamAtt", "O2", "Temp", "Salinity", "H2S", "ParticulateS", "TZVS", "CH4", "NO3", "NO2", "NH4", "PO4", "Chemoautotrophy", "BNP", "MicroAbun(x10^8 L^-1)", "FlagAbun(x10^5 L-1)", "VLP(x10^8 L-1)"))), by = "Replicate")
shannons_meanPlot
# reorder some factors to make them plot in the order I want
shannons_mean$OxCond <- factor(shannons_mean$OxCond, levels = c("Oxycline", "ShallowAnoxic", "Euxinic"))
shannons_mean$SizeFraction <- factor(shannons_mean$SizeFraction, levels = c("PA", "FL"))
ytitle <- expression(paste("Shannon's Diversity Index (",italic("H'"),")"))
shannonsplot <- ggplot(shannons_mean, aes(x = Depth, y = Shannons, color = OxCond)) +
geom_line(size=1, color = "black", lty = "dotted") +
geom_point(size=3, shape = c(16)) +
labs(y= ytitle, x = "Depth (m)") +
scale_x_reverse(expand = c(0, 0)) +
coord_flip(xlim = c(910, 100)) +
theme_bw() +
theme(legend.position = "right",
axis.text = element_text(size=8),
axis.text.x = element_text(size=8),
axis.title = element_text(size=8),
legend.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2)) +
facet_wrap(Season~SizeFraction, drop= TRUE, ncol = 4) +
scale_color_manual(values = c("blue", "red", "brown4")) +
labs(color = "Redox Condition")
shannonsplot
Export Plot
# set explicit panel size so they will be consistent for all figures
shannonsplot <- set_panel_size(shannonsplot, width = unit(22, "mm"), height = unit(60, "mm"))
ggsave(filename = "Figures/shannonsplot.eps", plot = shannonsplot, units = c("mm"), width = 180, height = 80, dpi = 300)
Ordinations
Filter
McMurdie and Holmes (2013) filter out taxa that were not seen with more than 3 counts in at least 20% of the samples. Also add a pseduocount of 1 to all counts. This is so that later when we do different calculations (log, division, etc) we don’t get back errors due to zeroes
ps_filtered = filter_taxa(ps, function(x) sum(x > 3) > (0.2*length(x)), TRUE)
ps_filtered <- transform_sample_counts(ps_filtered, function(x) x+1)
# Also make a filtered version of the relative abundance count table (for plotting purposes)
ps_ra_filtered <- prune_taxa(taxa_names(ps_filtered),ps_ra) # prune from ps_ra object (relative abundances)
# check number of ASVs in each
ps
ps_filtered
ps_ra_filteredReduced from 13,427 to 979 ASVs
Test for compositionality
based on Coenen et al. tutorials for clustering. See repo
# Estimate covariance matrix for OTUs
covariance_matrix <- as.matrix(otu_table(ps_filtered)) %*% t(otu_table(ps_filtered))
# %*% = matrix multiplication sign in R; used here to multiply OTU/ASV data matrix to itself to estimate covariance.
# Evaluate determinant of covariance matrix
cov_determinant <- det(covariance_matrix)
cov_determinantThe determinant of the covariance matrix (what we just calculated) is equivalent to the product of the proportion of variance explained by every PCA axis. If the determinant is 0, that means there is an axis which explains 0 variance that we can’t separate from the other axes. This means the data need to be transformed to be suitable for PCA.
PCA
PCA is essentially a type of PCoA using the Euclidean distance matrix as input. When combined with a log-ratio transformation of the count table, this is deemed appropriate for compositional datasets.
First do a CLR, centered log ratio transformation of the absolute abundance data (after filtering), as suggested by Gloor et al. 2017 and check the determinant of this matrix. Compare it to the determinant without any transformation.
# Estimate covariance matrix for absolute abundance ASV table
covariance_matrix <- as.matrix(otu_table(ps_filtered)) %*% t(otu_table(ps_filtered))
# Evaluate determinant of covariance matrix
cov_determinant <- det(covariance_matrix)
# Estimate covariance matrix for CLR-transformed ASV table
clr_asv_table_ps_filtered <- data.frame(compositions::clr(t(otu_table(ps_filtered))))
## Check new determinant of clr transformed table
new_covdet <- det(as.matrix(clr_asv_table_ps_filtered) %*% t(clr_asv_table_ps_filtered))
# Compare
cov_determinant #Original Count Data
new_covdet # NewThe determinant of the CLR-transformed table is not zero, so we can proceed with PCA of the CLR-transformed data.
Generate the PCA and visualize axes
# Generate a Principle Component Analysis (PCA) and evaluated based on the eigen decomposition from sample covariance matrix.
lograt_pca <- prcomp(clr_asv_table_ps_filtered)
# NOTE- this is equivalent to first making a Euclidean distance matrix using the CLR data table and then running a PCoA. A Euclidean distance matrix of a log-transformed data table = an Aitchison distance matrix. So this is equivalent to the compositional methods listed in Gloor et al.
# Visual representation with a screeplot
lograt_variances <- as.data.frame(lograt_pca$sdev^2/sum(lograt_pca$sdev^2)) %>% #Extract axes
# Format to plot
select(PercVar = 'lograt_pca$sdev^2/sum(lograt_pca$sdev^2)') %>%
rownames_to_column(var = "PCaxis") %>%
data.frame
head(lograt_variances)
# Plot screeplot
ggplot(lograt_variances, aes(x = as.numeric(PCaxis), y = PercVar)) +
geom_bar(stat = "identity", fill = "grey", color = "black") +
theme_minimal() +
theme(axis.title = element_text(color = "black", face = "bold", size = 10),
axis.text.y = element_text(color = "black", face = "bold"),
axis.text.x = element_blank()) +
labs(x = "PC axis", y = "% Variance", title = "Log-Ratio PCA Screeplot, CLR Tranformation")First two axes explain a decent proportion of variance: 24.8 + 13.4 = 38.2
Visualize the PCA
# extract PC values
pca_lograt_frame <- data.frame(lograt_pca$x) %>%
rownames_to_column(var = "Sample Name")
# Merge metadata into the pca data table
pca_lograt_frame <- left_join(pca_lograt_frame, metadata, by = "Sample Name")
# reorder some factors to make them plot in the order I want
pca_lograt_frame <- pca_lograt_frame %>%
mutate(SizeFraction = fct_relevel(SizeFraction, "PA", "FL")) %>%
mutate(OxCond = fct_relevel(OxCond, "Oxycline", "ShallowAnoxic", "Euxinic"))
pca_lograt_frame
# Plot PCA with Redox Regime and Size fraction
pca_lograt_plot <- ggplot(pca_lograt_frame, aes(x = PC1, y = PC2, color = OxCond)) +
geom_point(aes(shape = SizeFraction), size = 4) +
ylab(paste0('PC2 ', round(lograt_variances[2,2]*100,2),'%')) + #Extract y axis value from variance
xlab(paste0('PC1 ', round(lograt_variances[1,2]*100,2),'%')) + #Extract x axis value from variance
ggtitle('CLR-Euclidean PCA') +
scale_color_manual(values = c("blue", "red", "brown4")) +
coord_fixed(ratio = 1) +
theme_bw()
pca_lograt_plotEnvFit
Use vegan’s envfit to determine relationships between the ordination and environmental variables
# make metadata_ordinations, trimmed from metadata to only samples that are in PCA
metadata_ordinations <- metadata[metadata$`Sample Name` %in% sample_data(ps_filtered)$Sample.Name,]
# reorder some factors in metadata_ordinations to make them plot in the order I want
metadata_ordinations <- metadata_ordinations %>%
mutate(SizeFraction = fct_relevel(SizeFraction, "PA", "FL")) %>%
mutate(OxCond = fct_relevel(OxCond, "Oxycline", "ShallowAnoxic", "Euxinic"))
# sort clr_asv_table_ps_filtered in same order as metadata
clr_asv_table_ps_filtered <- clr_asv_table_ps_filtered[metadata_ordinations$"Sample Name",]
# re-run the PCA on clr_asv_table_ps_filtered
lograt_pca <- prcomp(clr_asv_table_ps_filtered)
# remove metadata that don't make sense to test (eg. NCBI sample IDs, etc.), repetitive variables (eg. Particulate S and TZVS), and those that didn't work on both cruises (like fluorescence, beam attenuation, etc)
metadata_ordinations <- select(metadata_ordinations, -Replicate, -Fluorescence, -BeamAtt, -TZVS, -Run, -"Assay Type", -AvgSpotLen, -Bases, -BioProject, -BioSample, -BioSampleModel, -Bytes, -"Center Name", -Collection_Date, -Consent, -"DATASTORE filetype", -"DATASTORE provider", -"DATASTORE region", -Experiment, -geo_loc_name_country, -geo_loc_name_country_continent, -geo_loc_name, -Instrument, -isolation_source, -lat_lon, -"Library Name", -LibraryLayout, -LibrarySelection, -LibrarySource, -Organism, -Platform, -ReleaseDate, -samp_collect_device, -"SRA Study", -Depth_m, -replicate, -size_fraction, -CH4_uM, -H2S_Um, -oxygen, -Oxygen_uM, -Particulate_Sulfur_uM, -salinity, -Temperature_degree_C, -TZVS_uM)
# change the name of some variables to make them easier to plot
metadata_ordinations <- rename(metadata_ordinations, PartS = ParticulateS, MicroAbun = "MicroAbun(x10^8 L^-1)", FlagAbun = "FlagAbun(x10^5 L-1)", VLPAbun = "VLP(x10^8 L-1)", Chemo = "Chemoautotrophy")
# fit environmental factors and save stats output
set.seed(10010)
pca_envfit <- envfit(lograt_pca, metadata_ordinations, permutations = 1000)
capture.output(pca_envfit, file = "stats_results/PCA_envfit_stat.txt")
pca_envfit
# significant vector variables, at the p<0.01 level: O2, Temp, Salinity, Particulate S, NO3, PO4, Chemoautotrophy, Flagellate Abundance
# significant centroid variables at the p<0.01 level: OxCond and SizeFraction
# fit species and save stats output
pca_sppfit <- envfit(lograt_pca, clr_asv_table_ps_filtered, permutations = 1000)
capture.output(pca_sppfit, file = "stats_results/PCA_sppfit_stat.txt")
pca_sppfitMany of the typical variables that indicate redox condition are significant (O2, NO3, Particulate S,etc), plus size fraction. There are many species that are sig
Make individual envfit objects for all the vectors that will be plotted
# vectors
pca_envfit_O2 <- envfit(lograt_pca~O2, metadata_ordinations, permutations = 1000)
pca_envfit_partS <- envfit(lograt_pca~PartS, metadata_ordinations, permutations = 1000)
pca_envfit_NO3 <- envfit(lograt_pca~NO3, metadata_ordinations, permutations = 1000)
pca_envfit_PO4 <- envfit(lograt_pca~PO4, metadata_ordinations, permutations = 1000)
pca_envfit_temp <- envfit(lograt_pca~Temp, metadata_ordinations, permutations = 1000)
pca_envfit_sal <- envfit(lograt_pca~Salinity, metadata_ordinations, permutations = 1000)
pca_envfit_chemo <- envfit(lograt_pca~Chemo, metadata_ordinations, permutations = 1000)
pca_envfit_FlagAbun <- envfit(lograt_pca~FlagAbun, metadata_ordinations, permutations = 1000)Next, trim the sppfit vegan object to just include those species with r2 value greater than 0.60 I got this function from here. Later, when plotting, I can also trim by p-value/
#__FUNCTION: select.envfit__#
# function (select.envit) filters the resulting list of function (envfit) based on their p values. This allows to display only significant values in the final plot.
# just run this
select.envfit<-function(fit, r.select){ #needs two sorts of input: fit= result of envfit, r.select= numeric, correlation minimum threshold
for (i in 1:length(fit$vectors$r)) { #run for-loop through the entire length of the column r in object fit$vectors$r starting at i=1
if (fit$vectors$r[i]<r.select) { #Check wether r<r.select, i.e. if the correlation is weaker than the threshold value. Change this Parameter for r-based selection
fit$vectors$arrows[i,]=NA #If the above statement is TRUE, i.e. r is smaller than r.select, then the coordinates of the vectors are set to NA, so they cannot be displayed
i=i+1 #increase the running parameter i from 1 to 2, i.e. check the next value in the column until every value has been checked
} #close if-loop
} #close for-loop
return(fit) #return fit as the result of the function
} #close the function
pca_sppfit_trim<-select.envfit(pca_sppfit, 0.6) Plot
Complicated to plot vegan output in ggplot. Plot in base R
# Convert characters in metadata to factors
metadata_ordinations <- metadata_ordinations %>% mutate_if(sapply(metadata_ordinations, is.character), as.factor)
with(as.data.frame(metadata_ordinations), levels(OxCond))
with(as.data.frame(metadata_ordinations), levels(SizeFraction))
# Define colors and shapes for plot
colvec <- c("blue", "red", "brown4")
shapevec <- c(16,17)
# Plot here in notebook
# Set up 2x2 panels
op <- par(oma=c(0,0,0,1),# Room for the title and legend
mfrow=c(2,2),
mai=c(.65,.65,.1,0))
# Panel 1- Add first half of envfit vectors
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = "", ylab = paste0('PC2 ', round(lograt_variances[2,2]*100,2),'%'), xaxt='n', xlim=c(-60,60)))
plot(pca_envfit_O2, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_partS, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_NO3, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_PO4, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
title("A", line = -1, adj = 0.02)
# Panel 2- Add rest of envfit vectors
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = "", ylab = "", xaxt='n', yaxt='n', xlim=c(-60,60)))
plot(pca_envfit_temp, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_sal, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_FlagAbun, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_chemo, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
title("B", line = -1, adj = 0.02)
# Panel 3- Add spider lines indicating envfit centroids for Size Fraction
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = paste0('PC1 ', round(lograt_variances[1,2]*100,2),'%'), ylab = paste0('PC2 ', round(lograt_variances[2,2]*100,2),'%'), xlim=c(-60,60)))
with(metadata_ordinations, ordispider(lograt_pca, SizeFraction, lwd = 1.5, lty = c(1,2), label = TRUE, cex = 0.6))
title("C", line = -1, adj = 0.02)
# Panel 4 -Add vectors indicating significant spp
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = paste0('PC1 ', round(lograt_variances[1,2]*100,2),'%'), ylab = "", yaxt='n', xlim=c(-60,60)))
plot(pca_sppfit_trim, p.max = 0.001, col = "black", cex = 0.6)
# annotate the 3 clusters of ASVs in panel D
text(x=c(0), y=c(45), labels=c("Cluster I"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(50), y=c(30), labels=c("Cluster II"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(48), y=c(-35), labels=c("Cluster III"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(-48), y=c(-18), labels=c("Cluster IV"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(-48), y=c(10), labels=c("Cluster V"), adj = 0.5, font = 2, cex = 0.8)
title("D", line = -1, adj = 0.02)
# Add legend
par(op) # Leave the last plot
op <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(-0.018,.57, c("PA", "FL", "Oxycline", "Shallow Anoxic", "Euxinic"), col=c("black", "black","blue", "red", "brown4"), pch = c(16, 17, 15, 15, 15), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3), text.width = c(0, 0.18, 0.18, 0.18, 0.2))
# Set up EPS and make plot
setEPS(width = 6, height = 6)
postscript("Figures/PCA_envfit.eps")
# Set up 2x2 panels
op <- par(oma=c(0,0,0,1),# Room for the title and legend
mfrow=c(2,2),
mai=c(.65,.65,.1,0))
# Panel 1- Add first half of envfit vectors
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = "", ylab = paste0('PC2 ', round(lograt_variances[2,2]*100,2),'%'), xaxt='n', xlim=c(-60,60)))
plot(pca_envfit_O2, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_partS, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_NO3, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_PO4, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
title("A", line = -1, adj = 0.02)
# Panel 2- Add rest of envfit vectors
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = "", ylab = "", xaxt='n', yaxt='n', xlim=c(-60,60)))
plot(pca_envfit_temp, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_sal, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_FlagAbun, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
plot(pca_envfit_chemo, p.max = 0.1, lwd = 2, col = "black", cex = 0.6)
title("B", line = -1, adj = 0.02)
# Panel 3- Add spider lines indicating envfit centroids for Size Fraction
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = paste0('PC1 ', round(lograt_variances[1,2]*100,2),'%'), ylab = paste0('PC2 ', round(lograt_variances[2,2]*100,2),'%'), xlim=c(-60,60)))
with(metadata_ordinations, ordispider(lograt_pca, SizeFraction, lwd = 1.5, lty = c(1,2), label = TRUE, cex = 0.6))
title("C", line = -1, adj = 0.02)
# Panel 4 -Add vectors indicating significant spp
with(metadata_ordinations, plot(scores(lograt_pca, display = "sites"), col = colvec[OxCond], pch = shapevec[SizeFraction], cex = 1.5, cex.lab = .8, cex.axis = .8, xlab = paste0('PC1 ', round(lograt_variances[1,2]*100,2),'%'), ylab = "", yaxt='n', xlim=c(-60,60)))
plot(pca_sppfit_trim, p.max = 0.001, col = "black", cex = 0.6)
# annotate the 3 clusters of ASVs in panel D
text(x=c(0), y=c(45), labels=c("Cluster I"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(50), y=c(30), labels=c("Cluster II"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(48), y=c(-35), labels=c("Cluster III"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(-48), y=c(-18), labels=c("Cluster IV"), adj = 0.5, font = 2, cex = 0.8)
text(x=c(-48), y=c(10), labels=c("Cluster V"), adj = 0.5, font = 2, cex = 0.8)
title("D", line = -1, adj = 0.02)
# Add legend
par(op) # Leave the last plot
op <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(-0.018,.57, c("PA", "FL", "Oxycline", "Shallow Anoxic", "Euxinic"), col=c("black", "black","blue", "red", "brown4"), pch = c(16, 17, 15, 15, 15), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3), text.width = c(0, 0.18, 0.18, 0.18, 0.2))
dev.off()
For the manuscript, I want to discuss what these significant species are. Make a table:
# extract p-values for each species
fit_pvals <- pca_sppfit$vectors$pvals %>%
as.data.frame() %>%
rownames_to_column("ASVID") %>%
dplyr::rename("pvals" = ".")
# extract r2 values
fit_r2vals <- pca_sppfit$vectors$r %>%
as.data.frame() %>%
rownames_to_column("ASVID") %>%
dplyr::rename("r2vals" = ".")
# only keep species with p-val < 0.001 and r2 value >0.6
fit_spp <- pca_sppfit %>%
scores(., display = "vectors") %>%
as.data.frame() %>%
rownames_to_column("ASVID") %>%
full_join(., fit_pvals, by = "ASVID") %>%
full_join(., fit_r2vals, by = "ASVID") %>%
filter(pvals < 0.001) %>%
filter(r2vals > 0.6)
# --> filters to 107 species
# put in ASV identifying information
pca_sig_ASVs <- taxonomy %>%
mutate(ASVID = rownames(taxonomy)) %>%
right_join(fit_spp, by = "ASVID")
# sort by PC2 to differentiate those above and below the PC2= 0 axis
pca_sig_ASVs <- pca_sig_ASVs %>%
arrange(desc(PC2))
pca_sig_ASVs
# the vegan plot also scales the species scores to fit the current plot (which is why PC values don't match what is seen in plot) Get these scaled PC values
ordiArrowMul(lograt_pca, display = "species") #7.636856
ordiArrowMul(pca_sppfit, display = "vectors") #0.8291121
# export as table
write.csv(pca_sig_ASVs, file="stats_results/pca_sig_ASVs.csv", row.names=FALSE)Correlation Analyses
Prepare the data
Import prokaryote dataset from Suter et al. 2018
Import
arch_counts <- read_csv("Suter_2018_count_tables/Cariaco_AA_updated_raw.csv");
bac_counts <- read_csv("Suter_2018_count_tables/Cariaco_AB_updated_raw.csv");Get sample names
bac_samples <- colnames(bac_counts)[2:49]
arch_samples <- colnames(arch_counts)[2:47]
bac_samples
arch_samplesMake separate taxonomy and count variables
arch_OTU <- arch_counts[,c("#OTU ID",arch_samples)]
arch_taxonomy <- arch_counts %>%
select(-arch_samples) %>%
select(-Sum)
arch_OTU
arch_taxonomy
bac_OTU <- bac_counts[,c("#OTU ID",bac_samples)]
bac_taxonomy <- bac_counts %>%
select(-bac_samples) %>%
select(-Sum) %>%
select(-"Interesting close relatives")
bac_OTU
bac_taxonomyMake into phyloseq objects
bac_OTU <- type_convert(as.data.frame(bac_OTU))
rownames(bac_OTU) <- bac_OTU$`#OTU ID`
bac_OTU <- bac_OTU[,!names(bac_OTU) %in% (c("#OTU ID"))]
bac_OTU = otu_table(bac_OTU, taxa_are_rows = TRUE)
#
arch_OTU <- type_convert(as.data.frame(arch_OTU))
rownames(arch_OTU) <- arch_OTU$`#OTU ID`
arch_OTU <- arch_OTU[,!names(arch_OTU) %in% (c("#OTU ID"))]
arch_OTU = otu_table(arch_OTU, taxa_are_rows = TRUE)
#
bac_TAX <- type_convert(as.data.frame(bac_taxonomy))
rownames(bac_TAX) <- bac_TAX$`#OTU ID`
bac_TAX <- bac_TAX[,!names(bac_TAX) %in% (c("#OTU ID"))]
bac_TAX = tax_table(as.matrix(bac_TAX))
#
arch_TAX <- type_convert(as.data.frame(arch_taxonomy))
rownames(arch_TAX) <- arch_TAX$`#OTU ID`
arch_TAX <- arch_TAX[,!names(arch_TAX) %in% (c("#OTU ID"))]
arch_TAX = tax_table(as.matrix(arch_TAX))
#
META = sample_data(data.frame(metadata, row.names = metadata$`Sample Name`))
#
ps_bac <- phyloseq(bac_OTU, bac_TAX, META)
ps_arch <- phyloseq(arch_OTU, arch_TAX, META)Filter out the samples with low sequencing effort. These were previously identified for itags paper
taxa_to_keep_b <- !sample_names(ps_bac) %in% c("AB3a900A","AB2a200A","AB2b267A")
ps_bac <- prune_samples(taxa_to_keep_b, ps_bac)
taxa_to_keep_a <- !sample_names(ps_arch) %in% c("AA2b900AN","AA2a247B","AA2a900BN","AA2b900BN")
ps_arch <- prune_samples(taxa_to_keep_a, ps_arch)Filtering
First calculate relative abdunance of bac and arch OTU tables
ps_bac_ra <- microbiome::transform(ps_bac, transform = "compositional")
(otu_table(ps_bac_ra))[1:5,1:5]
ps_arch_ra <- microbiome::transform(ps_arch, transform = "compositional")
(otu_table(ps_arch_ra))[1:5,1:5]Filter low abundance species from full dataset
Remove rows of glommed taxa from the full dataframe if their sum across all samples doesn’t exceed 5% (RA > 0.05)
# Bacteria
x <- taxa_sums(ps_bac_ra)
# keepTaxa <- base::which(x > .05)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_bac_ra_pruned <- prune_taxa(keepTaxa, ps_bac_ra)
ps_bac_pruned <- prune_taxa(keepTaxa, ps_bac)
ps_bac_ra_pruned
ps_bac_pruned
# Archaea
x <- taxa_sums(ps_arch_ra)
# keepTaxa <- base::which(x > .05)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_arch_ra_pruned <- prune_taxa(keepTaxa, ps_arch_ra)
ps_arch_pruned <- prune_taxa(keepTaxa, ps_arch)
ps_arch_ra_pruned
ps_arch_pruned
# Eukaryotes
x <- taxa_sums(ps_ra)
# keepTaxa <- base::which(x > .05)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_euk_ra_pruned <- prune_taxa(keepTaxa, ps_ra)
ps_euk_pruned <- prune_taxa(keepTaxa, ps)
ps_euk_ra_pruned
ps_euk_pruned
Trimmed to 124 bacteria OTUs, 52 archaea OTUs, and 123 eukaryotic ASVs (299 total). Proceed with this dataset of the most abundant OTUs for correlations and network analyses…
To do the multi-domain analysis, the sample names from each phyloseq object must match. These currently have “B” for bacteria, A, E etc. Remove this letter from sample names so that “AE2a247B”, “AA2a247B”, “AB2a247B” all become just “Type” from the metadata sheet [IntNov1FL in this case- for Interface, November, rep 1, free-living].
Import my SampleKey
samplekey <- read_csv("SampleKey.csv")Change the sample names in the otu tables to sample “Type”
# Archaea
# remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_ra_pruned)))
# sort SampleKey by order of column names from ps_arch_ra_pruned
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_ra_pruned))))
# replace col names of otu table from ps_arch_ra_pruned
sample_names(ps_arch_ra_pruned) <- samplekey_A$Type
# and ps_arch_pruned
sample_names(ps_arch_pruned) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_ra_pruned)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_ra_pruned))))
sample_names(ps_bac_ra_pruned) <- samplekey_B$Type
sample_names(ps_bac_pruned) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_ra_pruned)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_ra_pruned))))
sample_names(ps_euk_ra_pruned) <- samplekey_E$Type
sample_names(ps_euk_pruned) <- samplekey_E$Type
Move all pruned otu tables into one table by matching the sample Type- will use this for SparCC Make one for the 3-domain analysis and one for the 2-domain analysis (bacteria and archaea only)
alldomains_df <- bind_rows(data.frame(otu_table(ps_bac_pruned)), data.frame(otu_table(ps_arch_pruned)), data.frame(otu_table(ps_euk_pruned)))
alldomains_df
twodomains_df <- bind_rows(data.frame(otu_table(ps_bac_pruned)), data.frame(otu_table(ps_arch_pruned)))
twodomains_dfChange row names from “denovoXXX” to meaningful names
alldomains_df_full <- cbind(ID = rownames(alldomains_df), alldomains_df)
twodomains_df_full <- cbind(ID = rownames(twodomains_df), twodomains_df)
# start with only first rows, which are bacteria. make one column of meaningful labels
temp1 <- left_join(alldomains_df_full[1:dim(otu_table(ps_bac_pruned))[1],], bac_taxonomy, by = c("ID" = "#OTU ID"))
temp1$New_ID <- paste(temp1$ID, temp1$"taxonomy-2", temp1$"taxonomy-3", temp1$"taxonomy-4")
temp1 <- select(temp1,-colnames(bac_taxonomy[,2:11]))
# next rows are the archaea
temp2 <- left_join(alldomains_df_full[sum(dim(otu_table(ps_bac_pruned))[1],1):sum(dim(otu_table(ps_bac_pruned))[1],dim(otu_table(ps_arch_pruned))[1]),], arch_taxonomy, by = c("ID" = "#OTU ID"))
temp2$New_ID <- paste(temp2$ID, temp2$"taxonomy-2", temp2$"taxonomy-3")
temp2 <- select(temp2,-colnames(arch_taxonomy[,2:9]))
# last rows are eukarya
euk_taxonomy <- cbind("#ASV ID" = rownames(taxonomy), taxonomy)
temp3 <- left_join(alldomains_df_full[sum(dim(otu_table(ps_arch_pruned))[1], dim(otu_table(ps_bac_pruned))[1],1):sum(dim(otu_table(ps_arch_pruned))[1], dim(otu_table(ps_bac_pruned))[1],dim(otu_table(ps_euk_pruned))[1]),], euk_taxonomy, by = c("ID" = "#ASV ID"))
temp3$New_ID <- paste(temp3$ID, temp3$"Supergroup", temp3$"Division", temp3$"Class", temp3$"Order")
temp3 <- select(temp3,-colnames(euk_taxonomy[,2:9]))
# combine back all 3 domains, with new names as row names in a dataframe
alldomains_df_full <- rbind(temp1, temp2, temp3)
alldomains_df_full <- data.frame(alldomains_df_full)
rownames(alldomains_df_full) <- alldomains_df_full$New_ID
alldomains_df_full <- select(alldomains_df_full, -c("ID","New_ID"))
# and make one for the 2-domain dataset
twodomains_df_full <- rbind(temp1, temp2)
twodomains_df_full <- data.frame(twodomains_df_full)
rownames(twodomains_df_full) <- twodomains_df_full$New_ID
twodomains_df_full <- select(twodomains_df_full, -c("ID","New_ID"))
Remove columns with NAs. These are samples for which the library for at least one domain didn’t work (can’t do correlations with missing values in columns)
alldomains_df_full <- alldomains_df_full %>%
select_if(~ !any(is.na(.)))
alldomains_df_full
alldomains_df <- alldomains_df %>%
select_if(~ !any(is.na(.)))
alldomains_df
twodomains_df_full <- twodomains_df_full %>%
select_if(~ !any(is.na(.)))
twodomains_df_full
twodomains_df <- twodomains_df %>%
select_if(~ !any(is.na(.)))
twodomains_dfFilter low abundance species- oxycline depths only
Simlarly, make pruned datasets of the most abundant OTUs/ASVs in the oxycline, anoxic, and euxinic samples as separate datasets
Pull out samples and taxa from each redox regime
# Pull out oxycline bacteria sample IDs
oxyclinetypes_bac <- metadata %>%
filter(`Sample Name` %in% sample_names(ps_bac)) %>%
filter(OxCond == "Oxycline") %>%
select("Sample Name")
oxyclinetypes_bac <- unlist(c(unique(oxyclinetypes_bac)), use.names = FALSE)
# Pull out all bacteria from oxycline
ps_bac_oxycline <- prune_samples(oxyclinetypes_bac, ps_bac)
ps_bac_ra_oxycline <- prune_samples(oxyclinetypes_bac, ps_bac_ra)
# Pull out oxycline archaea sample IDs
oxyclinetypes_arch <- metadata %>%
filter(`Sample Name` %in% sample_names(ps_arch)) %>%
filter(OxCond == "Oxycline") %>%
select("Sample Name")
oxyclinetypes_arch <- unlist(c(unique(oxyclinetypes_arch)), use.names = FALSE)
# Pull out all archaea from oxycline
ps_arch_oxycline <- prune_samples(oxyclinetypes_arch, ps_arch)
ps_arch_ra_oxycline <- prune_samples(oxyclinetypes_arch, ps_arch_ra)
# Pull out oxycline eukaryotic sample IDs
oxyclinetypes_euk <- metadata %>%
filter(`Sample Name` %in% sample_names(ps)) %>%
filter(OxCond == "Oxycline") %>%
select("Sample Name")
oxyclinetypes_euk <- unlist(c(unique(oxyclinetypes_euk)), use.names = FALSE)
# Pull out all eukaryotes from oxycline
ps_euk_oxycline <- prune_samples(oxyclinetypes_euk, ps)
ps_euk_ra_oxycline <- prune_samples(oxyclinetypes_euk, ps_ra)
Filter out low abundance taxa from the oxycline samples. Use 5% as cutoff
# Bacteria
x <- taxa_sums(ps_bac_ra_oxycline)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_bac_ra_oxycline_pruned <- prune_taxa(keepTaxa, ps_bac_ra_oxycline)
ps_bac_oxycline_pruned <- prune_taxa(keepTaxa, ps_bac_oxycline)
ps_bac_ra_oxycline_pruned
ps_bac_oxycline_pruned
# Archaea
x <- taxa_sums(ps_arch_ra_oxycline)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_arch_ra_oxycline_pruned <- prune_taxa(keepTaxa, ps_arch_ra_oxycline)
ps_arch_oxycline_pruned <- prune_taxa(keepTaxa, ps_arch_oxycline)
ps_arch_ra_oxycline_pruned
ps_arch_oxycline_pruned
# Eukaryotes
x <- taxa_sums(ps_euk_ra_oxycline)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_euk_ra_oxycline_pruned <- prune_taxa(keepTaxa, ps_euk_ra_oxycline)
ps_euk_oxycline_pruned <- prune_taxa(keepTaxa, ps_euk_oxycline)
ps_euk_ra_oxycline_pruned
ps_euk_oxycline_pruned
79 bacteria, 36 archaea, 76 eukaryota remain
Change the sample names in the otu tables to “Type”
# Archaea
# remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_ra_oxycline_pruned)))
# sort SampleKey by order of column names from ps_arch_ra_oxycline_pruned
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_ra_oxycline_pruned))))
# replace col names of otu table from ps_arch_ra_oxycline_pruned
sample_names(ps_arch_ra_oxycline_pruned) <- samplekey_A$Type
# and ps_arch_pruned
sample_names(ps_arch_oxycline_pruned) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_ra_oxycline_pruned)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_ra_oxycline_pruned))))
sample_names(ps_bac_ra_oxycline_pruned) <- samplekey_B$Type
sample_names(ps_bac_oxycline_pruned) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_ra_oxycline_pruned)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_ra_oxycline_pruned))))
sample_names(ps_euk_ra_oxycline_pruned) <- samplekey_E$Type
sample_names(ps_euk_oxycline_pruned) <- samplekey_E$Type
Move all pruned otu tables into one table by matching the sample Type- will use this for SparCC
alldomains_df_oxycline <- bind_rows(data.frame(otu_table(ps_bac_oxycline_pruned)), data.frame(otu_table(ps_arch_oxycline_pruned)), data.frame(otu_table(ps_euk_oxycline_pruned)))
alldomains_df_oxyclineChange row names from “denovoXXX” to meaningful names
alldomains_df_full_oxycline <- cbind(ID = rownames(alldomains_df_oxycline), alldomains_df_oxycline)
# start with only first rows, which are bacteria. make one column of meaningful labels
temp1 <- left_join(alldomains_df_full_oxycline[1:dim(otu_table(ps_bac_oxycline_pruned))[1],], bac_taxonomy, by = c("ID" = "#OTU ID"))
temp1$New_ID <- paste(temp1$ID, temp1$"taxonomy-2", temp1$"taxonomy-3", temp1$"taxonomy-4")
temp1 <- select(temp1,-colnames(bac_taxonomy[,2:11]))
# next rows are the archaea
temp2 <- left_join(alldomains_df_full_oxycline[sum(dim(otu_table(ps_bac_oxycline_pruned))[1],1):sum(dim(otu_table(ps_bac_oxycline_pruned))[1],dim(otu_table(ps_arch_oxycline_pruned))[1]),], arch_taxonomy, by = c("ID" = "#OTU ID"))
temp2$New_ID <- paste(temp2$ID, temp2$"taxonomy-2", temp2$"taxonomy-3")
temp2 <- select(temp2,-colnames(arch_taxonomy[,2:9]))
# last rows are eukarya
euk_taxonomy <- cbind("#ASV ID" = rownames(taxonomy), taxonomy)
temp3 <- left_join(alldomains_df_full_oxycline[sum(dim(otu_table(ps_arch_oxycline_pruned))[1], dim(otu_table(ps_bac_oxycline_pruned))[1],1):sum(dim(otu_table(ps_arch_oxycline_pruned))[1], dim(otu_table(ps_bac_oxycline_pruned))[1],dim(otu_table(ps_euk_oxycline_pruned))[1]),], euk_taxonomy, by = c("ID" = "#ASV ID"))
temp3$New_ID <- paste(temp3$ID, temp3$"Supergroup", temp3$"Division", temp3$"Class", temp3$"Order")
temp3 <- select(temp3,-colnames(euk_taxonomy[,2:9]))
# combine back all 3 domains, with new names as row names in a dataframe
alldomains_df_full_oxycline <- rbind(temp1, temp2, temp3)
alldomains_df_full_oxycline <- data.frame(alldomains_df_full_oxycline)
rownames(alldomains_df_full_oxycline) <- alldomains_df_full_oxycline$New_ID
alldomains_df_full_oxycline <- select(alldomains_df_full_oxycline, -c("ID","New_ID"))
alldomains_df_full_oxyclineRemove columns with NAs. These are samples for which the library for at least one domain didn’t work (can’t do correlations with missing values in columns)
alldomains_df_full_oxycline <- alldomains_df_full_oxycline %>%
select_if(~ !any(is.na(.)))
alldomains_df_full_oxycline
alldomains_df_oxycline <- alldomains_df_oxycline %>%
select_if(~ !any(is.na(.)))
alldomains_df_oxycline21 samples remain for correlation
Filter low abundance species- anoxic depths only
Pull out samples from shallow anoxic regime
# Pull out anoxic layer bacteria sample IDs
anoxictypes_bac <- metadata %>%
filter(`Sample Name` %in% sample_names(ps_bac)) %>%
filter(OxCond == "ShallowAnoxic") %>%
select("Sample Name")
anoxictypes_bac <- unlist(c(unique(anoxictypes_bac)), use.names = FALSE)
# Pull out all bacteria from anoxic layer
ps_bac_anoxic <- prune_samples(anoxictypes_bac, ps_bac)
ps_bac_ra_anoxic <- prune_samples(anoxictypes_bac, ps_bac_ra)
# Pull out anoxic layer archaea sample IDs
anoxictypes_arch <- metadata %>%
filter(`Sample Name` %in% sample_names(ps_arch)) %>%
filter(OxCond == "ShallowAnoxic") %>%
select("Sample Name")
anoxictypes_arch <- unlist(c(unique(anoxictypes_arch)), use.names = FALSE)
# Pull out all archaea from anoxic layer
ps_arch_anoxic<- prune_samples(anoxictypes_arch, ps_arch)
ps_arch_ra_anoxic <- prune_samples(anoxictypes_arch, ps_arch_ra)
# Pull out anoxic layer eukaryotic sample IDs
anoxictypes_euk <- metadata %>%
filter(`Sample Name` %in% sample_names(ps)) %>%
filter(OxCond == "ShallowAnoxic") %>%
select("Sample Name")
anoxictypes_euk <- unlist(c(unique(anoxictypes_euk)), use.names = FALSE)
# Pull out all eukaryotes from anoxic layer
ps_euk_anoxic <- prune_samples(anoxictypes_euk, ps)
ps_euk_ra_anoxic <- prune_samples(anoxictypes_euk, ps_ra)
Filter out low abundance taxa from the oxycline samples. Use 5% as cutoff
# Bacteria
x <- taxa_sums(ps_bac_ra_anoxic)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_bac_ra_anoxic_pruned <- prune_taxa(keepTaxa, ps_bac_ra_anoxic)
ps_bac_anoxic_pruned <- prune_taxa(keepTaxa, ps_bac_anoxic)
ps_bac_ra_anoxic_pruned
ps_bac_anoxic_pruned
# Archaea
x <- taxa_sums(ps_arch_ra_anoxic)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_arch_ra_anoxic_pruned <- prune_taxa(keepTaxa, ps_arch_ra_anoxic)
ps_arch_anoxic_pruned <- prune_taxa(keepTaxa, ps_arch_anoxic)
ps_arch_ra_anoxic_pruned
ps_arch_anoxic_pruned
# Eukaryotes
x <- taxa_sums(ps_euk_ra_anoxic)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_euk_ra_anoxic_pruned <- prune_taxa(keepTaxa, ps_euk_ra_anoxic)
ps_euk_anoxic_pruned <- prune_taxa(keepTaxa, ps_euk_anoxic)
ps_euk_ra_anoxic_pruned
ps_euk_anoxic_pruned
32 bacteria, 19 archaea, 37 eukaryota remain
Change the sample names in the otu tables to “Type”
# Archaea
# remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_ra_anoxic_pruned)))
# sort SampleKey by order of column names from ps_arch_ra_anoxic_pruned
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_ra_anoxic_pruned))))
# replace col names of otu table from ps_arch_ra_anoxic_pruned
sample_names(ps_arch_ra_anoxic_pruned) <- samplekey_A$Type
# and ps_arch_pruned
sample_names(ps_arch_anoxic_pruned) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_ra_anoxic_pruned)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_ra_anoxic_pruned))))
sample_names(ps_bac_ra_anoxic_pruned) <- samplekey_B$Type
sample_names(ps_bac_anoxic_pruned) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_ra_anoxic_pruned)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_ra_anoxic_pruned))))
sample_names(ps_euk_ra_anoxic_pruned) <- samplekey_E$Type
sample_names(ps_euk_anoxic_pruned) <- samplekey_E$Type
Move all pruned otu tables into one table by matching the sample Type- will use this for SparCC
alldomains_df_anoxic <- bind_rows(data.frame(otu_table(ps_bac_anoxic_pruned)), data.frame(otu_table(ps_arch_anoxic_pruned)), data.frame(otu_table(ps_euk_anoxic_pruned)))
alldomains_df_anoxicChange row names from “denovoXXX” to meaningful names
alldomains_df_full_anoxic <- cbind(ID = rownames(alldomains_df_anoxic), alldomains_df_anoxic)
# start with only first rows, which are bacteria. make one column of meaningful labels
temp1 <- left_join(alldomains_df_full_anoxic[1:dim(otu_table(ps_bac_anoxic_pruned))[1],], bac_taxonomy, by = c("ID" = "#OTU ID"))
temp1$New_ID <- paste(temp1$ID, temp1$"taxonomy-2", temp1$"taxonomy-3", temp1$"taxonomy-4")
temp1 <- select(temp1,-colnames(bac_taxonomy[,2:11]))
# next rows are the archaea
temp2 <- left_join(alldomains_df_full_anoxic[sum(dim(otu_table(ps_bac_anoxic_pruned))[1],1):sum(dim(otu_table(ps_bac_anoxic_pruned))[1],dim(otu_table(ps_arch_anoxic_pruned))[1]),], arch_taxonomy, by = c("ID" = "#OTU ID"))
temp2$New_ID <- paste(temp2$ID, temp2$"taxonomy-2", temp2$"taxonomy-3")
temp2 <- select(temp2,-colnames(arch_taxonomy[,2:9]))
# last rows are eukarya
euk_taxonomy <- cbind("#ASV ID" = rownames(taxonomy), taxonomy)
temp3 <- left_join(alldomains_df_full_anoxic[sum(dim(otu_table(ps_arch_anoxic_pruned))[1], dim(otu_table(ps_bac_anoxic_pruned))[1],1):sum(dim(otu_table(ps_arch_anoxic_pruned))[1], dim(otu_table(ps_bac_anoxic_pruned))[1],dim(otu_table(ps_euk_anoxic_pruned))[1]),], euk_taxonomy, by = c("ID" = "#ASV ID"))
temp3$New_ID <- paste(temp3$ID, temp3$"Supergroup", temp3$"Division", temp3$"Class", temp3$"Order")
temp3 <- select(temp3,-colnames(euk_taxonomy[,2:9]))
# combine back all 3 domains, with new names as row names in a dataframe
alldomains_df_full_anoxic <- rbind(temp1, temp2, temp3)
alldomains_df_full_anoxic <- data.frame(alldomains_df_full_anoxic)
rownames(alldomains_df_full_anoxic) <- alldomains_df_full_anoxic$New_ID
alldomains_df_full_anoxic <- select(alldomains_df_full_anoxic, -c("ID","New_ID"))
alldomains_df_full_anoxicRemove columns with NAs. These are samples for which the library for at least one domain didn’t work (can’t do correlations with missing values in columns)
alldomains_df_full_anoxic <- alldomains_df_full_anoxic %>%
select_if(~ !any(is.na(.)))
alldomains_df_full_anoxic
alldomains_df_anoxic <- alldomains_df_anoxic %>%
select_if(~ !any(is.na(.)))
alldomains_df_anoxic11 samples remain for correlation
Filter low abundance species- euxinic depths only
Pull out samples from euxinic regime
# Pull out anoxic layer bacteria sample IDs
euxinictypes_bac <- metadata %>%
filter(`Sample Name` %in% sample_names(ps_bac)) %>%
filter(OxCond == "Euxinic") %>%
select("Sample Name")
euxinictypes_bac <- unlist(c(unique(euxinictypes_bac)), use.names = FALSE)
# Pull out all bacteria from euxinic layer
ps_bac_euxinic <- prune_samples(euxinictypes_bac, ps_bac)
ps_bac_ra_euxinic <- prune_samples(euxinictypes_bac, ps_bac_ra)
# Pull out euxinic layer archaea sample IDs
euxinictypes_arch <- metadata %>%
filter(`Sample Name` %in% sample_names(ps_arch)) %>%
filter(OxCond == "Euxinic") %>%
select("Sample Name")
euxinictypes_arch <- unlist(c(unique(euxinictypes_arch)), use.names = FALSE)
# Pull out all archaea from euxinic layer
ps_arch_euxinic<- prune_samples(euxinictypes_arch, ps_arch)
ps_arch_ra_euxinic <- prune_samples(euxinictypes_arch, ps_arch_ra)
# Pull out euxinic layer eukaryotic sample IDs
euxinictypes_euk <- metadata %>%
filter(`Sample Name` %in% sample_names(ps)) %>%
filter(OxCond == "Euxinic") %>%
select("Sample Name")
euxinictypes_euk <- unlist(c(unique(euxinictypes_euk)), use.names = FALSE)
# Pull out all eukaryotes from euxinic layer
ps_euk_euxinic <- prune_samples(euxinictypes_euk, ps)
ps_euk_ra_euxinic <- prune_samples(euxinictypes_euk, ps_ra)
Filter out low abundance taxa from the oxycline samples. Use 5% as cutoff
# Bacteria
x <- taxa_sums(ps_bac_ra_euxinic)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_bac_ra_euxinic_pruned <- prune_taxa(keepTaxa, ps_bac_ra_euxinic)
ps_bac_euxinic_pruned <- prune_taxa(keepTaxa, ps_bac_euxinic)
ps_bac_ra_euxinic_pruned
ps_bac_euxinic_pruned
# Archaea
x <- taxa_sums(ps_arch_ra_euxinic)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_arch_ra_euxinic_pruned <- prune_taxa(keepTaxa, ps_arch_ra_euxinic)
ps_arch_euxinic_pruned <- prune_taxa(keepTaxa, ps_arch_euxinic)
ps_arch_ra_euxinic_pruned
ps_arch_euxinic_pruned
# Eukaryotes
x <- taxa_sums(ps_euk_ra_euxinic)
keepTaxa <- x>.05 # prune_taxa require a logical not a list of IDs. compare to keepTaxa above to check
ps_euk_ra_euxinic_pruned <- prune_taxa(keepTaxa, ps_euk_ra_euxinic)
ps_euk_euxinic_pruned <- prune_taxa(keepTaxa, ps_euk_euxinic)
ps_euk_ra_euxinic_pruned
ps_euk_euxinic_pruned
16 bacteria, 16 archaea, 20 eukaryota remain
Change the sample names in the otu tables to “Type”
# Archaea
# remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_ra_euxinic_pruned)))
# sort SampleKey by order of column names from ps_arch_ra_euxinic_pruned
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_ra_euxinic_pruned))))
# replace col names of otu table from ps_arch_ra_euxinic_pruned
sample_names(ps_arch_ra_euxinic_pruned) <- samplekey_A$Type
# and ps_arch_pruned
sample_names(ps_arch_euxinic_pruned) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_ra_euxinic_pruned)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_ra_euxinic_pruned))))
sample_names(ps_bac_ra_euxinic_pruned) <- samplekey_B$Type
sample_names(ps_bac_euxinic_pruned) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_ra_euxinic_pruned)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_ra_euxinic_pruned))))
sample_names(ps_euk_ra_euxinic_pruned) <- samplekey_E$Type
sample_names(ps_euk_euxinic_pruned) <- samplekey_E$Type
Move all pruned otu tables into one table by matching the sample Type- will use this for SparCC
alldomains_df_euxinic <- bind_rows(data.frame(otu_table(ps_bac_euxinic_pruned)), data.frame(otu_table(ps_arch_euxinic_pruned)), data.frame(otu_table(ps_euk_euxinic_pruned)))
alldomains_df_euxinicChange row names from “denovoXXX” to meaningful names
alldomains_df_full_euxinic <- cbind(ID = rownames(alldomains_df_euxinic), alldomains_df_euxinic)
# start with only first rows, which are bacteria. make one column of meaningful labels
temp1 <- left_join(alldomains_df_full_euxinic[1:dim(otu_table(ps_bac_euxinic_pruned))[1],], bac_taxonomy, by = c("ID" = "#OTU ID"))
temp1$New_ID <- paste(temp1$ID, temp1$"taxonomy-2", temp1$"taxonomy-3", temp1$"taxonomy-4")
temp1 <- select(temp1,-colnames(bac_taxonomy[,2:11]))
# next rows are the archaea
temp2 <- left_join(alldomains_df_full_euxinic[sum(dim(otu_table(ps_bac_euxinic_pruned))[1],1):sum(dim(otu_table(ps_bac_euxinic_pruned))[1],dim(otu_table(ps_arch_euxinic_pruned))[1]),], arch_taxonomy, by = c("ID" = "#OTU ID"))
temp2$New_ID <- paste(temp2$ID, temp2$"taxonomy-2", temp2$"taxonomy-3")
temp2 <- select(temp2,-colnames(arch_taxonomy[,2:9]))
# last rows are eukarya
euk_taxonomy <- cbind("#ASV ID" = rownames(taxonomy), taxonomy)
temp3 <- left_join(alldomains_df_full_euxinic[sum(dim(otu_table(ps_arch_euxinic_pruned))[1], dim(otu_table(ps_bac_euxinic_pruned))[1],1):sum(dim(otu_table(ps_arch_euxinic_pruned))[1], dim(otu_table(ps_bac_euxinic_pruned))[1],dim(otu_table(ps_euk_euxinic_pruned))[1]),], euk_taxonomy, by = c("ID" = "#ASV ID"))
temp3$New_ID <- paste(temp3$ID, temp3$"Supergroup", temp3$"Division", temp3$"Class", temp3$"Order")
temp3 <- select(temp3,-colnames(euk_taxonomy[,2:9]))
# combine back all 3 domains, with new names as row names in a dataframe
alldomains_df_full_euxinic <- rbind(temp1, temp2, temp3)
alldomains_df_full_euxinic <- data.frame(alldomains_df_full_euxinic)
rownames(alldomains_df_full_euxinic) <- alldomains_df_full_euxinic$New_ID
alldomains_df_full_euxinic <- select(alldomains_df_full_euxinic, -c("ID","New_ID"))
alldomains_df_full_euxinicRemove columns with NAs. These are samples for which the library for at least one domain didn’t work (can’t do correlations with missing values in columns)
alldomains_df_full_euxinic <- alldomains_df_full_euxinic %>%
select_if(~ !any(is.na(.)))
alldomains_df_full_euxinic
alldomains_df_euxinic <- alldomains_df_euxinic %>%
select_if(~ !any(is.na(.)))
alldomains_df_euxinic4 samples remain for correlation
SparCC
SparCC on full dataset
This is largely based on BVCN tutorials NOTE- input for SparCC should be raw count data (after filtering out low-abundance ASVs). The function does a log-ratio transformation to account for compositionality
# Helper functions from J. Cram https://biovcnet.github.io/_pages/NetworkScience_SparCC.nb
pass <- function(x){x}
# Get lower triangle of the correlation matrix
get_lower_tri<-function(cormat){
cormat[upper.tri(cormat)] <- NA
return(cormat)
}
# Get upper triangle of the correlation matrix
get_upper_tri <- function(cormat){
cormat[lower.tri(cormat)]<- NA
return(cormat)
}
reorder_cormat <- function(cormat){
# Use correlation between variables as distance
dd <- as.dist((1-cormat)/2)
hc <- hclust(dd)
cormat <-cormat[hc$order, hc$order]
}
reorder_cor_and_p <- function(cormat, pmat){
dd <- as.dist((1-cormat)/2)
hc <- hclust(dd)
cormat <-cormat[hc$order, hc$order]
pmat <- pmat[hc$order, hc$order]
list(r = cormat, p = pmat)
}sparcctable_alldomains <- sparcc(t(alldomains_df))Put sample names back into result tables
rownames(sparcctable_alldomains$Cor) <- rownames(alldomains_df_full)
colnames(sparcctable_alldomains$Cor) <- rownames(alldomains_df_full)
rownames(sparcctable_alldomains$Cov) <- rownames(alldomains_df_full)
colnames(sparcctable_alldomains$Cov) <- rownames(alldomains_df_full)
sparcctable_alldomains$Cor[1:2,1:2]
Plot correlation
plotableSparcc <- sparcctable_alldomains$Cor %>% reorder_cormat %>% get_upper_tri() %>% reshape2::melt() %>% na.omit()
Sparcc_plot <- plotableSparcc %>% ggplot(aes(x = Var2, y = Var1, fill = value)) + geom_tile() + scale_fill_gradient2() + theme(axis.text.x = element_text(angle = 90, hjust = 1))
Sparcc_plot
# ggsave("figures/sparcc_corr_alldomains.eps",Sparcc_plot, width = 35, height = 35, units = c("in"))Calculate Sparcc p-values by bootstrapping- TAKES A LONG TIME
# tp0 <- proc.time()
# out2 <- sparccboot(t(alldomains_df), R = 1000, ncpus = 2)
# tp1 <- proc.time()
# tp1 - tp0The above took ~14 hours to run 1000 iterations
Extract p-values
outP <- pval.sparccboot(out2)
data.frame(outP$cors, outP$pvals) %>% head
cors <- outP$cors
pvals <- outP$pvals
sparCCpcors <- diag(0.5, nrow = dim(sparcctable_alldomains$Cor)[1], ncol = dim(sparcctable_alldomains$Cor)[1])
sparCCpcors[upper.tri(sparCCpcors, diag=FALSE)] <- cors
sparCCpcors <- sparCCpcors + t(sparCCpcors)
sparCCpval <- diag(0.5, nrow = dim(sparcctable_alldomains$Cor)[1], ncol = dim(sparcctable_alldomains$Cor)[1])
sparCCpval[upper.tri(sparCCpval, diag=FALSE)] <- pvals
sparCCpval <- sparCCpval + t(sparCCpval)
rownames(sparCCpcors) <- rownames(alldomains_df_full)
colnames(sparCCpcors) <- rownames(alldomains_df_full)
rownames(sparCCpval) <- rownames(alldomains_df_full)
colnames(sparCCpval) <- rownames(alldomains_df_full)
sparCCpcors[1:2, 1:2]
sparCCpval[1:2, 1:2]Reorder for plotting
reordered_all_sparcc <- reorder_cor_and_p(sparCCpcors, sparCCpval)
reordered_sparccCor <- reordered_all_sparcc$r
reordered_sparccP<- reordered_all_sparcc$p
sparccCor_processed <- reordered_sparccCor %>% get_upper_tri() %>% reshape2::melt() %>% na.omit() %>% rename(cor = value)
sparccP_processed <- reordered_sparccP %>% get_upper_tri() %>% reshape2::melt() %>% na.omit() %>% rename(p = value)
# join the two data frames
SparccP <- left_join(sparccCor_processed, sparccP_processed, by = c("Var1", "Var2")) %>%
# # remove self correlations
# filter(Var1 != Var2) %>%
# calculate the false discovery rate to adjust for multiple p values
mutate(fdr = p.adjust(p, method = "BH"))And plot correlation with p-values. Circles mean that the relationship is sig. at p = 0.05 level, based on bootstrapping
fdrThresh <- 0.01 # fdr threshold
sparccOkP <- SparccP%>% filter(fdr < fdrThresh)
SparccP_plot <- SparccP %>% ggplot(aes(x = Var2, y = Var1, fill = cor)) + geom_tile() + scale_fill_gradient2() + theme(axis.text.x = element_text(angle = 90, hjust = 1)) + geom_point(data = sparccOkP, shape = 1)
SparccP_plot
ggsave("figures/sparcc_corr_alldomains_w_pvals.eps",SparccP_plot, width = 35, height = 35, units = c("in"))
Save environment again
# save.image("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_sparcc_bootstrap.RData")Or load if coming back
load("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_sparcc_bootstrap.RData")SpiecEasi
Try the SpiecEasi method, which accounts for sparse data, as described in the SpiecEasi publication, spieceasi github, and BVCN lessons 1.2. This reduces the clumps (eg. sparse relationships that are secondary or teriary, not direct relationships).
Make functions from tutorial
convertSEToTable <- function(se_out,sp.names){
#This is just a fancy helper function to get the data in a comparable format to the output of lesson 1 so we can make a similar plot. We will cover other methods for visualizing this type of output in future lessons.
secor <- cov2cor(as.matrix(getOptCov(se_out))) # See spieceasi documentation for how to pull out weights for comparison
elist <- summary(triu(secor*getRefit(se_out), k=1))
elist[,1] <- sp.names[elist[,1]]
elist[,2] <- sp.names[elist[,2]]
elist[,4] <- paste(elist[,1],elist[,2])
full_e <- expand.grid(sp.names,sp.names)
rownames(full_e) <- paste(full_e[,1],full_e[,2])
full_e[,"Weight"] <- 0
full_e[elist[,4],"Weight"] <- elist[,3]
x <- expand.grid(1:length(sp.names),1:length(sp.names))
full_e[x[,"Var1"]>x[,"Var2"],"Weight"] <- NA
return(as.data.frame(full_e,stringsAsFactors=F))
}SpiecEasi on full dataset
Follow the spieceasi documentation to find optimal parameters. Also, because I want to compare networks, this convo on using optimal parameters for different network comparisons is helpful.
Remove samples from the phyloseq objects that are not in all 3 domains and reorder samples so they are in same order in all 3 objects
bac_arch_common <- intersect(sample_names(ps_bac_ra_pruned), sample_names(ps_arch_ra_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_ra_pruned))
ps_bac_pruned_3domains <- prune_samples(all_common, ps_bac_pruned)
ps_arch_pruned_3domains <- prune_samples(all_common, ps_arch_pruned)
ps_euk_pruned_3domains <- prune_samples(all_common, ps_euk_pruned)
ps_bac_ra_pruned_3domains <- prune_samples(all_common, ps_bac_ra_pruned)
ps_arch_ra_pruned_3domains <- prune_samples(all_common, ps_arch_ra_pruned)
ps_euk_ra_pruned_3domains <- prune_samples(all_common, ps_euk_ra_pruned)
# make sure samples are in same order
otu_table(ps_arch_pruned_3domains) <- otu_table(ps_arch_pruned_3domains)[,sample_names(ps_bac_ra_pruned_3domains)]
otu_table(ps_euk_pruned_3domains) <- otu_table(ps_euk_pruned_3domains)[,sample_names(ps_bac_ra_pruned_3domains)]
#Run Spieceasi on 3 domain dataset based on 5% RA cutoff
pargs <- list(seed=10010)
se <- spiec.easi(list(ps_bac_pruned_3domains, ps_arch_pruned_3domains, ps_euk_pruned_3domains), method='glasso', lambda.min.ratio=1e-2, nlambda=100, pulsar.params=pargs)
getStability(se)the above takes a while to run (20-30 mins). Using parameters above, the stability along the lambda path (in se$select$stars$summary) crosses the 0.05 threshold and the final stability value (0.044) is sufficiently close to 0.05
#This is just a fancy helper function to get the data in a comparable format to the output of above
tab.se <- convertSEToTable(se,sp.names=colnames(t(alldomains_df_full)))
#Plot
plot.se <- ggplot(tab.se,aes(x = Var1, y = Var2, fill = Weight)) + geom_tile() + scale_fill_gradient2() + theme(axis.text.x = element_text(angle = 90, hjust = 1))
plot(plot.se)
ggsave("figures/spieceasi_alldomains.eps",plot.se, width = 35, height = 35, units = c("in"))
Note- only the significant values above show up in the heatmap above (ie. there is no “p-value”)
SpiecEasi on bacteria and archaea only
Remove samples from the phyloseq objects that are not in both domains and reorder samples so they are in same order in all 3 objects
bac_arch_common <- intersect(sample_names(ps_bac_ra_pruned), sample_names(ps_arch_ra_pruned))
ps_bac_pruned_2domains <- prune_samples(bac_arch_common, ps_bac_pruned)
ps_arch_pruned_2domains <- prune_samples(bac_arch_common, ps_arch_pruned)
ps_bac_ra_pruned_2domains <- prune_samples(bac_arch_common, ps_bac_ra_pruned)
ps_arch_ra_pruned_2domains <- prune_samples(bac_arch_common, ps_arch_ra_pruned)
otu_table(ps_arch_pruned_2domains) <- otu_table(ps_arch_pruned_2domains)[,sample_names(ps_bac_ra_pruned_3domains)]
sample_data(ps_bac_pruned_2domains)
sample_data(ps_arch_pruned_2domains)
#Run Spieceasi
pargs <- list(seed=10010)
se.2domains <- spiec.easi(list(ps_bac_pruned_2domains, ps_arch_pruned_2domains), method='glasso', lambda.min.ratio=1e-2, nlambda=200, pulsar.params=pargs)
getStability(se.2domains)the above takes a while to run . Using parameters above, the stability along the lambda path crosses the 0.05 threshold and the final stability value (0.046) is close to 0.05
#This is just a fancy helper function to get the data in a comparable format to the output of above
tab.se <- convertSEToTable(se.2domains,sp.names=colnames(t(twodomains_df_full)))
#Plot
plot.se <- ggplot(tab.se,aes(x = Var1, y = Var2, fill = Weight)) + geom_tile() + scale_fill_gradient2() + theme(axis.text.x = element_text(angle = 90, hjust = 1))
plot(plot.se)
ggsave("figures/spieceasi_2domains.eps",plot.se, width = 35, height = 35, units = c("in"))
Note- only the significant values above show up in the heatmap above (ie. there is no “p-value”)
SpiecEasi on oxycline with 3 domains
bac_arch_common <- intersect(sample_names(ps_bac_oxycline_pruned), sample_names(ps_arch_oxycline_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_oxycline_pruned))
ps_bac_oxycline_pruned <- prune_samples(all_common, ps_bac_oxycline_pruned)
ps_arch_oxycline_pruned <- prune_samples(all_common, ps_arch_oxycline_pruned)
ps_euk_oxycline_pruned <- prune_samples(all_common, ps_euk_oxycline_pruned)
otu_table(ps_arch_oxycline_pruned) <- otu_table(ps_arch_oxycline_pruned)[,sample_names(ps_bac_oxycline_pruned)]
otu_table(ps_euk_oxycline_pruned) <- otu_table(ps_euk_oxycline_pruned)[,sample_names(ps_bac_oxycline_pruned)]
sample_data(ps_bac_oxycline_pruned)
sample_data(ps_arch_oxycline_pruned)
sample_data(ps_euk_oxycline_pruned)
#Run Spieceasi
pargs <- list(seed=10010)
se.oxycline <- spiec.easi(list(ps_bac_oxycline_pruned, ps_arch_oxycline_pruned, ps_euk_oxycline_pruned), method='glasso', lambda.min.ratio=5e-3, nlambda=300, pulsar.params=pargs)
getStability(se.oxycline)the above takes a couple of minutes to run. Stability and stability along lambda path are very similar to the full dataset spieceasi object (se) with these parameters above. Continue with these.
#This is just a fancy helper function to get the data in a comparable format to the output of above
tab.se.oxycline <- convertSEToTable(se.oxycline, sp.names=colnames(t(alldomains_df_full_oxycline)))
#Plot
plot.se.oxycline <- ggplot(tab.se.oxycline,aes(x = Var1, y = Var2, fill = Weight)) + geom_tile() + scale_fill_gradient2() + theme(axis.text.x = element_text(angle = 90, hjust = 1))
plot(plot.se.oxycline)
ggsave("figures/spieceasi_alldomains_oxycline.eps",plot.se.oxycline, width = 35, height = 35, units = c("in"))
SpiecEasi on anoxic depths with 3 domains
bac_arch_common <- intersect(sample_names(ps_bac_anoxic_pruned), sample_names(ps_arch_anoxic_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_anoxic_pruned))
ps_bac_anoxic_pruned <- prune_samples(all_common, ps_bac_anoxic_pruned)
ps_arch_anoxic_pruned <- prune_samples(all_common, ps_arch_anoxic_pruned)
ps_euk_anoxic_pruned <- prune_samples(all_common, ps_euk_anoxic_pruned)
otu_table(ps_arch_anoxic_pruned) <- otu_table(ps_arch_anoxic_pruned)[,sample_names(ps_bac_anoxic_pruned)]
otu_table(ps_euk_anoxic_pruned) <- otu_table(ps_euk_anoxic_pruned)[,sample_names(ps_bac_anoxic_pruned)]
sample_data(ps_bac_anoxic_pruned)
sample_data(ps_arch_anoxic_pruned)
sample_data(ps_euk_anoxic_pruned)
#Run Spieceasi
pargs <- list(seed=10010)
se.anoxic <- spiec.easi(list(ps_bac_anoxic_pruned, ps_arch_anoxic_pruned, ps_euk_anoxic_pruned), method='glasso', lambda.min.ratio=1e-1, nlambda=300, pulsar.params=pargs)
getStability(se.anoxic)the above takes a couple of minutes to run
#This is just a fancy helper function to get the data in a comparable format to the output of above
tab.se.anoxic <- convertSEToTable(se.anoxic, sp.names=colnames(t(alldomains_df_full_anoxic)))
#Plot
plot.se.anoxic <- ggplot(tab.se.anoxic,aes(x = Var1, y = Var2, fill = Weight)) + geom_tile() + scale_fill_gradient2() + theme(axis.text.x = element_text(angle = 90, hjust = 1))
plot(plot.se.anoxic)
ggsave("figures/spieceasi_alldomains_anoxic.eps",plot.se.anoxic, width = 35, height = 35, units = c("in"))
SpiecEasi on euxinic depths with 3 domains
bac_arch_common <- intersect(sample_names(ps_bac_euxinic_pruned), sample_names(ps_arch_euxinic_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_euxinic_pruned))
ps_bac_euxinic_pruned <- prune_samples(all_common, ps_bac_euxinic_pruned)
ps_arch_euxinic_pruned <- prune_samples(all_common, ps_arch_euxinic_pruned)
ps_euk_euxinic_pruned <- prune_samples(all_common, ps_euk_euxinic_pruned)
otu_table(ps_arch_euxinic_pruned) <- otu_table(ps_arch_euxinic_pruned)[,sample_names(ps_bac_euxinic_pruned)]
otu_table(ps_euk_euxinic_pruned) <- otu_table(ps_euk_euxinic_pruned)[,sample_names(ps_bac_euxinic_pruned)]
sample_data(ps_bac_euxinic_pruned)
sample_data(ps_arch_euxinic_pruned)
sample_data(ps_euk_euxinic_pruned)
#Run Spieceasi
pargs <- list(seed=10010)
se.euxinic <- spiec.easi(list(ps_bac_euxinic_pruned, ps_arch_euxinic_pruned, ps_euk_euxinic_pruned), method='glasso', lambda.min.ratio=1e-5,nlambda=20, pulsar.params=pargs)
getStability(se.euxinic)I tried many parameters on the above but cannot get a satisfactory solution. There are just too few samples after quality filtering to do SpiecEasi on the euxinic depths only.
Save and re-load environment
# save.image("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_spieceasi.RData")Or load if coming back
load("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_spieceasi.RData")Network Analysis
Build networks from the SpiecEasi association matrices using iGraph
3 Domain Network- All depths
#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se)
table(as.numeric(adj.mat))
0 1
83721 5680 # Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se)))
weighted.adj.mat <- se.cor*getRefit(se)
#Convert to graph objects
grph.unweighted <- adj2igraph(adj.mat)
grph <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph)$name <- rownames(alldomains_df)
# V(grph)
# Make size of nodes proportional to degree (number of connections)
V(grph)$size <- (degree(grph) + 1) # the +1 avoids size zero vertices
# Change width of edges to be proportional to their weights
E(grph)$width <- abs(E(grph)$weight)*10
# Scale node sizes to be smaller
V(grph)$size <- V(grph)$size/2
# Remove low-weight edges (you decide what threshold is right for your network):
# weight_threshold <- 0.07
# grph <- delete.edges(grph,which(abs(E(grph)$weight)<weight_threshold))
# Join taxonomy data of each node
# Convert graph to datafram
grph_df <- igraph::as_data_frame(grph, 'both')
# make formatted taxonomy table for each domain
ps_bac_pruned_tax_table <- as.data.frame(tax_table(ps_bac_pruned)) %>%
mutate(name = rownames(tax_table(ps_bac_pruned)))
ps_arch_pruned_tax_table <- as.data.frame(tax_table(ps_arch_pruned)) %>%
mutate(name = rownames(tax_table(ps_arch_pruned)))
ps_euk_pruned_tax_table <- as.data.frame(tax_table(ps_euk_pruned)) %>%
mutate(name = rownames(tax_table(ps_euk_pruned)))
# link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph_df$vertices[1:ntaxa(ps_bac_pruned),],
ps_bac_pruned_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph_df$vertices[ntaxa(ps_bac_pruned)+1:ntaxa(ps_arch_pruned),],
ps_arch_pruned_tax_table, by = "name")
euk_temp <- left_join(grph_df$vertices[ntaxa(ps_bac_pruned)+ntaxa(ps_arch_pruned)+1:ntaxa(ps_euk_pruned),],
ps_euk_pruned_tax_table, by = "name")
# rename column names in euk table to match others
euk_temp <- euk_temp %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp, euk_temp)
# remake into graph
grph <- graph_from_data_frame(grph_df$edges,
directed = F,
vertices = all_temp)
# Make color palette for domain
dtype = c("red", "green", "blue", "yellow")
# Make color vector
domain_color <- dtype[as.numeric(as.factor(V(grph)$"taxonomy-1"))]
# check
domain_color [1] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[13] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[25] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[37] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[49] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[61] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[73] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[85] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "yellow" "green"
[97] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[109] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[121] "green" "green" "green" "green" "red" "red" "red" "red" "red" "red" "red" "red"
[133] "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red"
[145] "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red"
[157] "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red"
[169] "red" "red" "red" "red" "red" "red" "red" "red" "blue" "blue" "blue" "blue"
[181] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[193] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[205] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[217] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[229] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[241] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[253] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[265] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[277] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue"
[289] "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" "blue" as.factor(V(grph)$"taxonomy-1") [1] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[9] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[17] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[25] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[33] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[41] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[49] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[57] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[65] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[73] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[81] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[89] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria No blast hit Bacteria
[97] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[105] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[113] Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria Bacteria
[121] Bacteria Bacteria Bacteria Bacteria Archaea Archaea Archaea Archaea
[129] Archaea Archaea Archaea Archaea Archaea Archaea Archaea Archaea
[137] Archaea Archaea Archaea Archaea Archaea Archaea Archaea Archaea
[145] Archaea Archaea Archaea Archaea Archaea Archaea Archaea Archaea
[153] Archaea Archaea Archaea Archaea Archaea Archaea Archaea Archaea
[161] Archaea Archaea Archaea Archaea Archaea Archaea Archaea Archaea
[169] Archaea Archaea Archaea Archaea Archaea Archaea Archaea Archaea
[177] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[185] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[193] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[201] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[209] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[217] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[225] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[233] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[241] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[249] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[257] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[265] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[273] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[281] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[289] Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota Eukaryota
[297] Eukaryota Eukaryota Eukaryota
Levels: Archaea Bacteria Eukaryota No blast hit# Plot
plot(grph,
vertex.label=NA,
layout=layout_with_graphopt(grph),
vertex.color=domain_color)
title("SpiecEasi Network: All domains, Whole Water Column")legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red", "green", "blue", "yellow"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/3domains_alldepths_spieceasi_network.eps", width = 5.5, height = 5)plot(grph,
vertex.label=NA,
layout=layout_with_graphopt(grph),
vertex.color=domain_color)
title("SpiecEasi Network: All domains, Whole Water Column")
legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red", "green", "blue", "yellow"), border=NA)
dev.off()quartz_off_screen
2 
Positive and negative edges separately
# Subset based on pos or neg edges
grph.pos <-delete.edges(grph, which(E(grph)$weight<0))
grph.neg <-delete.edges(grph, which(E(grph)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.pos <- delete.vertices(grph.pos, which(degree(grph.pos)==0))
grph.neg <- delete.vertices(grph.neg, which(degree(grph.neg)==0))
# Make color vector for each
domain_color_pos <- dtype[as.numeric(as.factor(V(grph.pos)$"taxonomy-1"))]
domain_color_neg <- dtype[as.numeric(as.factor(V(grph.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.pos),
vertex.color=domain_color_pos)
title("SpiecEasi Network: All domains, Positive Edges, Whole Water Column")legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red", "green", "blue", "yellow"), border=NA)
# Plot neg
plot(grph.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.neg),
vertex.color=domain_color_neg)
title("SpiecEasi Network: All domains, Negative Edges, Whole Water Column")legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red", "green", "blue", "yellow"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_alldepths_posedges_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.pos),
vertex.color=domain_color_pos)
title("SpiecEasi Network: All domains, Positive Edges, Whole Water Column")
legend("topright",bty = "n",
legend=c("Bacteria","Archaea", "Eukarya"),
fill=c("red","green","blue"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/3domains_alldepths_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.neg),
vertex.color=domain_color_neg)title("SpiecEasi Network: All domains, Negative Edges, Whole Water Column")
legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red", "green", "blue", "yellow"), border=NA)
dev.off()quartz_off_screen
2 
2 Domain Network- All depths
Remove eukaryotes to see impact on network
#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se.2domains)
table(as.numeric(adj.mat))
0 1
28568 2408 # Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se.2domains)))
weighted.adj.mat <- se.cor*getRefit(se.2domains)
#Convert to graph objects
grph.unweighted <- adj2igraph(adj.mat)
grph.2domains <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.2domains)$name <- rownames(twodomains_df)
# V(grph.2domains)
# Make size of nodes proportional to degree (number of connections)
V(grph.2domains)$size <- (degree(grph.2domains) + 1) # the +1 avoids size zero vertices
# Color edges by connection (positive or negative)
# E(grph.2domains)$color <- custombluegreen
# E(grph.2domains)$color[E(grph.2domains)$weight<0] <- customreddishpurple
# Change width of edges to be proportional to their weights
E(grph.2domains)$width <- abs(E(grph.2domains)$weight)*10
# Scale node sizes to be smaller
V(grph.2domains)$size <- V(grph.2domains)$size/2
# Remove low-weight edges (you decide what threshold is right for your network):
# weight_threshold <- 0.07
# grph.2domains <- delete.edges(grph.2domains,which(abs(E(grph.2domains)$weight)<weight_threshold))
# Join taxonomy data of each node
# Convert graph to datafram
grph.2domains_df <- igraph::as_data_frame(grph.2domains, 'both')
# make formatted taxonomy table for each domain
ps_bac_pruned_2domains_tax_table <- as.data.frame(tax_table(ps_bac_pruned_2domains)) %>%
mutate(name = rownames(tax_table(ps_bac_pruned_2domains)))
ps_arch_2domains_pruned_tax_table <- as.data.frame(tax_table(ps_arch_pruned_2domains)) %>%
mutate(name = rownames(tax_table(ps_arch_pruned_2domains)))
# link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph.2domains_df$vertices[1:ntaxa(ps_bac_pruned_2domains),],
ps_bac_pruned_2domains_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph.2domains_df$vertices[ntaxa(ps_bac_pruned_2domains)+1:ntaxa(ps_arch_pruned_2domains),], ps_arch_2domains_pruned_tax_table, by = "name")
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp)
# remake into graph
grph.2domains <- graph_from_data_frame(grph.2domains_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "yellow")
# Make color vector
domain_color_2domains <- dtype[as.numeric(as.factor(V(grph.2domains)$"taxonomy-1"))]
# Plot
plot(grph.2domains,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains),
vertex.color=domain_color_2domains)
title("SpiecEasi Network: Bacteria and Archaea, Whole Water Column")legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "No blast hit"),
fill=c("red","green", "yellow"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/2domains_alldepths_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.2domains,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains),
vertex.color=domain_color_2domains)
title("SpiecEasi Network: Bacteria and Archaea, Whole Water Column")
legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "No blast hit"),
fill=c("red","green", "yellow"), border=NA)
dev.off()quartz_off_screen
2 
Positive and negative edges separately
# Subset based on pos or neg edges
grph.2domains.pos <-delete.edges(grph.2domains, which(E(grph.2domains)$weight<0))
grph.2domains.neg <-delete.edges(grph.2domains, which(E(grph.2domains)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.2domains.pos <- delete.vertices(grph.2domains.pos, which(degree(grph.2domains.pos)==0))
grph.2domains.neg <- delete.vertices(grph.2domains.neg, which(degree(grph.2domains.neg)==0))
# Make color vector for each
domain_color_2domains_pos <- dtype[as.numeric(as.factor(V(grph.2domains.pos)$"taxonomy-1"))]
domain_color_2domains_neg <- dtype[as.numeric(as.factor(V(grph.2domains.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.pos),
vertex.color=domain_color_2domains_pos)
title("SpiecEasi Network: Bacteria and Archaea, Positive Edges Only, Whole Water Column")legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "No Blast Hit"),
fill=c("green","red","yellow"), border=NA)
# Plot neg
plot(grph.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.neg),
vertex.color=domain_color_2domains_neg)
title("SpiecEasi Network: Bacteria and Archaea, Negative Edges Only, Whole Water Column")legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "No Blast Hit"),
fill=c("green","red","yellow"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/2domains_alldepths_posedges_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.pos),
vertex.color=domain_color_2domains_pos)
title("SpiecEasi Network: Bacteria and Archaea, Positive Edges Only, Whole Water Column")
legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "No Blast Hit"),
fill=c("green","red","yellow"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/2domains_alldepths_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.neg),
vertex.color=domain_color_2domains_neg)title("SpiecEasi Network: Bacteria and Archaea, Negative Edges Only, Whole Water Column")
legend("topright",bty = "n",
legend=c("Archaea","Bacteria", "No Blast Hit"),
fill=c("green","red","yellow"), border=NA)
dev.off()quartz_off_screen
2 
3 Domain Network- Oxycline
#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se.oxycline)
table(as.numeric(adj.mat))
# Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se.oxycline)))
weighted.adj.mat <- se.cor*getRefit(se.oxycline)
#Convert to graph objects
grph.unweighted.oxycline <- adj2igraph(adj.mat)
grph.oxycline <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.oxycline)$name <- rownames(alldomains_df_oxycline)
# V(grph.oxycline)
# Make size of nodes proportional to degree (number of connections)
V(grph.oxycline)$size <- (degree(grph.oxycline) + 1) # the +1 avoids size zero vertices
# Color edges by connection (positive or negative)
# E(grph.oxycline)$color <- custombluegreen
# E(grph.oxycline)$color[E(grph.oxycline)$weight<0] <- customreddishpurple
# Change width of edges to be proportional to their weights
E(grph.oxycline)$width <- abs(E(grph.oxycline)$weight)*10
# Scale node sizes to be smaller
V(grph.oxycline)$size <- V(grph.oxycline)$size/2
# Remove low-weight edges (you decide what threshold is right for your network):
# weight_threshold <- 0.07
# grph.oxycline <- delete.edges(grph.oxycline,which(abs(E(grph.oxycline)$weight)<weight_threshold))
# Join taxonomy data of each node
# Convert graph to datafram
grph.oxycline_df <- igraph::as_data_frame(grph.oxycline, 'both')
# make formatted taxonomy table for each domain
ps_bac_oxycline_pruned_tax_table <- as.data.frame(tax_table(ps_bac_oxycline_pruned)) %>%
mutate(name = rownames(tax_table(ps_bac_oxycline_pruned)))
ps_arch_oxycline_pruned_tax_table <- as.data.frame(tax_table(ps_arch_oxycline_pruned)) %>%
mutate(name = rownames(tax_table(ps_arch_oxycline_pruned)))
ps_euk_oxycline_pruned_tax_table <- as.data.frame(tax_table(ps_euk_oxycline_pruned)) %>%
mutate(name = rownames(tax_table(ps_euk_oxycline_pruned)))
# link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph.oxycline_df$vertices[1:ntaxa(ps_bac_oxycline_pruned),],
ps_bac_oxycline_pruned_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph.oxycline_df$vertices[ntaxa(ps_bac_oxycline_pruned)+1:ntaxa(ps_arch_oxycline_pruned),],ps_arch_oxycline_pruned_tax_table, by = "name")
euk_temp <- left_join(grph.oxycline_df$vertices[ntaxa(ps_bac_oxycline_pruned)+ntaxa(ps_arch_oxycline_pruned)+1:ntaxa(ps_euk_oxycline_pruned),], ps_euk_oxycline_pruned_tax_table, by = "name")
# rename column names in euk table to match others
euk_temp <- euk_temp %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp, euk_temp)
# remake into graph
grph.oxycline <- graph_from_data_frame(grph.oxycline_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "blue")
# Make color vector
domain_color_oxycline <- dtype[as.numeric(as.factor(V(grph.oxycline)$"taxonomy-1"))]
# Plot
plot(grph.oxycline,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline),
vertex.color=domain_color_oxycline)
title("SpiecEasi Network: All domains, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/3domains_oxycline_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.oxycline,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline),
vertex.color=domain_color_oxycline)
title("SpiecEasi Network: All domains, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
dev.off()Positive and negative edges separately
# Subset based on pos or neg edges
grph.oxycline.pos <-delete.edges(grph.oxycline, which(E(grph.oxycline)$weight<0))
grph.oxycline.neg <-delete.edges(grph.oxycline, which(E(grph.oxycline)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.oxycline.pos <- delete.vertices(grph.oxycline.pos, which(degree(grph.oxycline.pos)==0))
grph.oxycline.neg <- delete.vertices(grph.oxycline.neg, which(degree(grph.oxycline.neg)==0))
# Make color vector for each
domain_color_oxycline_pos <- dtype[as.numeric(as.factor(V(grph.oxycline.pos)$"taxonomy-1"))]
domain_color_oxycline_neg <- dtype[as.numeric(as.factor(V(grph.oxycline.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.pos),
vertex.color=domain_color_oxycline_pos)
title("SpiecEasi Network: All domains, Positive Edges only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
# Plot neg
plot(grph.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.neg),
vertex.color=domain_color_oxycline_neg)
title("SpiecEasi Network: All domains, Negative Edges Only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_oxycline_posedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.pos),
vertex.color=domain_color_oxycline_pos)
title("SpiecEasi Network: All domains, Positive Edges Only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
dev.off()
setEPS()
postscript(file = "Figures/3domains_oxycline_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.neg),
vertex.color=domain_color_oxycline_neg)
title("SpiecEasi Network: All domains, Negative Edges Only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
dev.off()3 Domain Network- Anoxic
#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se.anoxic)
table(as.numeric(adj.mat))
# Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se.anoxic)))
weighted.adj.mat <- se.cor*getRefit(se.anoxic)
#Convert to graph objects
grph.unweighted.anoxic <- adj2igraph(adj.mat)
grph.anoxic <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.anoxic)$name <- rownames(alldomains_df_anoxic)
# V(grph.anoxic)
# Make size of nodes proportional to degree (number of connections)
V(grph.anoxic)$size <- (degree(grph.anoxic) + 1) # the +1 avoids size zero vertices
# Color edges by connection (positive or negative)
# E(grph.anoxic)$color <- custombluegreen
# E(grph.anoxic)$color[E(grph.anoxic)$weight<0] <- customreddishpurple
# Change width of edges to be proportional to their weights
E(grph.anoxic)$width <- abs(E(grph.anoxic)$weight)*10
# Scale node sizes to be smaller
V(grph.anoxic)$size <- V(grph.anoxic)$size/2
# Remove low-weight edges (you decide what threshold is right for your network):
# weight_threshold <- 0.07
# grph.anoxic <- delete.edges(grph.anoxic,which(abs(E(grph.anoxic)$weight)<weight_threshold))
# Join taxonomy data of each node
# Convert graph to datafram
grph.anoxic_df <- igraph::as_data_frame(grph.anoxic, 'both')
# make formatted taxonomy table for each domain
ps_bac_anoxic_pruned_tax_table <- as.data.frame(tax_table(ps_bac_anoxic_pruned)) %>%
mutate(name = rownames(tax_table(ps_bac_anoxic_pruned)))
ps_arch_anoxic_pruned_tax_table <- as.data.frame(tax_table(ps_arch_anoxic_pruned)) %>%
mutate(name = rownames(tax_table(ps_arch_anoxic_pruned)))
ps_euk_anoxic_pruned_tax_table <- as.data.frame(tax_table(ps_euk_anoxic_pruned)) %>%
mutate(name = rownames(tax_table(ps_euk_anoxic_pruned)))
# link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph.anoxic_df$vertices[1:ntaxa(ps_bac_anoxic_pruned),],ps_bac_anoxic_pruned_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph.anoxic_df$vertices[ntaxa(ps_bac_anoxic_pruned)+1:ntaxa(ps_arch_anoxic_pruned),],ps_arch_anoxic_pruned_tax_table, by = "name")
euk_temp <- left_join(grph.anoxic_df$vertices[ntaxa(ps_bac_anoxic_pruned)+ntaxa(ps_arch_anoxic_pruned)+1:ntaxa(ps_euk_anoxic_pruned),], ps_euk_anoxic_pruned_tax_table, by = "name")
# rename column names in euk table to match others
euk_temp <- euk_temp %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp, euk_temp)
# remake into graph
grph.anoxic <- graph_from_data_frame(grph.anoxic_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "blue")
# Make color vector
domain_color_anoxic <- dtype[as.numeric(as.factor(V(grph.anoxic)$"taxonomy-1"))]
# Plot
plot(grph.anoxic,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic),
vertex.color=domain_color_anoxic)
title("SpiecEasi Network: All domains, Anoxic Layer")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/3domains_anoxic_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.anoxic,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic),
vertex.color=domain_color_anoxic)
title("SpiecEasi Network: All domains, Anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
dev.off()Positive and negative edges separately
# Subset based on pos or neg edges
grph.anoxic.pos <-delete.edges(grph.anoxic, which(E(grph.anoxic)$weight<0))
grph.anoxic.neg <-delete.edges(grph.anoxic, which(E(grph.anoxic)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.anoxic.pos <- delete.vertices(grph.anoxic.pos, which(degree(grph.anoxic.pos)==0))
grph.anoxic.neg <- delete.vertices(grph.anoxic.neg, which(degree(grph.anoxic.neg)==0))
# Make color vector for each
domain_color_anoxic_pos <- dtype[as.numeric(as.factor(V(grph.anoxic.pos)$"taxonomy-1"))]
domain_color_anoxic_neg <- dtype[as.numeric(as.factor(V(grph.anoxic.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.pos),
vertex.color=domain_color_anoxic_pos)
title("SpiecEasi Network: All domains, Positive Edges only, anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
# Plot neg
plot(grph.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.neg),
vertex.color=domain_color_anoxic_neg)
title("SpiecEasi Network: All domains, Negative Edges Only, anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_anoxic_posedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.pos),
vertex.color=domain_color_anoxic_pos)
title("SpiecEasi Network: All domains, Positive Edges Only, Shallow Anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
dev.off()
setEPS()
postscript(file = "Figures/3domains_anoxic_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.neg),
vertex.color=domain_color_anoxic_neg)
title("SpiecEasi Network: All domains, Negative Edges Only, Shallow Anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya"),
fill=c("red","green","blue"), border=NA)
dev.off()Summary Network figure
# Set up in panels
op <- par(oma=c(2,.5,.5,0),# Room for the titles and legend
mfrow=c(4,2),
mai=c(.15,.3,.15,.1))
# Panel 1- All depths, positive network
plot(grph.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.pos),
vertex.color=domain_color_pos)
mtext ("Positive", side = 3, outer = TRUE, line = -1, adj = 0.22, cex = .8)
mtext("All depths", side=2, cex = .8, line = 1.5)
# Panel 2- All depths, negative network
plot(grph.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.neg),
vertex.color=domain_color_neg)
mtext ("Negative", side = 3, outer = TRUE, line = -1, adj = .8, cex = .8)
# Panel 3- Oxycline, positive network
plot(grph.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.pos),
vertex.color=domain_color_oxycline_pos)
mtext("Oxycline", side=2, cex = .8, line = 1.5)
# Panel 4- Oxycline, negative network
plot(grph.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.neg),
vertex.color=domain_color_oxycline_neg)
# Panel 5- Anoxic, positive network
plot(grph.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.pos),
vertex.color=domain_color_anoxic_pos)
mtext("Anoxic", side=2, cex = .8, line = 1.5)
# Panel 6- Anoxic, negative network
plot(grph.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.neg),
vertex.color=domain_color_anoxic_neg)
# Panel 7- 2 Domains, positive network
plot(grph.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.pos),
vertex.color=domain_color_2domains_pos)
mtext("Prok Only", side=2, cex = .8, line = 1.5)
# Panel 8- 2 Domains, negative network
plot(grph.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.pos),
vertex.color=domain_color_2domains_neg)
# Add legend
par(op) # Leave the last plot
op <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(.15,-0.04, c("Archaea","Bacteria", "Eukarya", "No Blast Hit"), col=c("red", "green", "blue", "yellow"), pch = c(16), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3))
# Save figure
# Set up EPS and make plot
setEPS(width = 6, height = 9)
postscript("Figures/Networks_pos_neg.eps")
op <- par(oma=c(2,.5,.5,0),# Room for the titles and legend
mfrow=c(4,2),
mai=c(.15,.3,.15,.1))
# Panel 1- All depths, positive network
plot(grph.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.pos),
vertex.color=domain_color_pos)
mtext ("Positive", side = 3, outer = TRUE, line = -1, adj = 0.22, cex = .8)
mtext("All depths", side=2, cex = .8, line = 1.5)
# Panel 2- All depths, negative network
plot(grph.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.neg),
vertex.color=domain_color_neg)
mtext ("Negative", side = 3, outer = TRUE, line = -1, adj = .8, cex = .8)
# Panel 3- Oxycline, positive network
plot(grph.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.pos),
vertex.color=domain_color_oxycline_pos)
mtext("Oxycline", side=2, cex = .8, line = 1.5)
# Panel 4- Oxycline, negative network
plot(grph.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.oxycline.neg),
vertex.color=domain_color_oxycline_neg)
# Panel 5- Anoxic, positive network
plot(grph.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.pos),
vertex.color=domain_color_anoxic_pos)
mtext("Anoxic", side=2, cex = .8, line = 1.5)
# Panel 6- Anoxic, negative network
plot(grph.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.anoxic.neg),
vertex.color=domain_color_anoxic_neg)
# Panel 7- 2 Domains, positive network
plot(grph.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.pos),
vertex.color=domain_color_2domains_pos)
mtext("Prok Only", side=2, cex = .8, line = 1.5)
# Panel 8- 2 Domains, negative network
plot(grph.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.pos),
vertex.color=domain_color_2domains_neg)
# Add legend
par(op) # Leave the last plot
op <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(.15,-0.04, c("Archaea","Bacteria", "Eukarya", "No Blast Hit"), col=c("red", "green", "blue", "yellow"), pch = c(16), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3))
dev.off()
Collect network parameters
Number of edges
the number of edges and how many are positive vs negative
# total number of edges in full dataset network
length(E(grph)$weight)
# percent of neg edges
(sum(E(grph)$weight<0)/length(E(grph)$weight))*100
# total number of edges in 2-domain dataset network
length(E(grph.2domains)$weight)
# percent of neg edges
(sum(E(grph.2domains)$weight<0)/length(E(grph.2domains)$weight))*100
# total number of edges in oxycline network
length(E(grph.oxycline)$weight)
# percent of neg edges
(sum(E(grph.oxycline)$weight<0)/length(E(grph.oxycline)$weight))*100
# total number of edges in anoxic network
length(E(grph.anoxic)$weight)
# percent of neg edges
(sum(E(grph.anoxic)$weight<0)/length(E(grph.anoxic)$weight))*100
Declining number of total edges going from full dataset –> oxycline only –> anoxic only. But the percentage of negative associations is similar (34.4-37.7%). Most associations (~65%) in each network are positive.
Edge density
the number of edges relatives to total number of possible edges
edge_density(grph)*100
edge_density(grph.2domains)*100
edge_density(grph.oxycline)*100
edge_density(grph.anoxic)*100The full dataset has the highest edge density, then oxycline, then anoxic
Component
The size of the components, or “clumps,” in the network, and how many members in each
# full dataset
components(grph)$no
components(grph)$csize
# 2 domains
components(grph.2domains)$no
components(grph.2domains)$csize
# oxycline
components(grph.oxycline)$no
components(grph.oxycline)$csize
# anoxic
components(grph.anoxic)$no
components(grph.anoxic)$csizeThe anoxic network is most disjointed, with 48 clumps and the largest containing only 24 members. The next is oxycline, with 32 clumps and the largest with 144 members. Then the full dataset has only 27 clumps and the largest clump contains 262 members.
Average path length
Path is the shortest distance between two nodes (fewest number of edges). Average path length of a network gives a sense of how connected every node is to another. Unconnected hubs in the netowrk will have “infinite” paths from other hubs. The function mean_distance ignores the infinite edges and calculates the average of all other edges
mean_distance(grph)
mean_distance(grph.2domains)
mean_distance(grph.oxycline)
mean_distance(grph.anoxic)The longest average path length is in the oxycline, followed by the whole dataset and then anoxic. Meaning the nodes in the anoxic are more closely associated with each other. Even though there are more hubs in anoxic, as shown above, the nodes in the hubs are close to each other. The oxycline hubs have the longest average distances between nodes.
Which ASVs are in positive vs negative networks?
# Positive network- full dataset
grph.pos_df <- igraph::as_data_frame(grph.pos, 'both')
grph.pos_df_vert <- grph.pos_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.pos_df_vert$"taxonomy-5"))
# 37 Dino-Group-II
# 3 Dino-Group-I
# 34 Spumellarida
# Negative network- full dataset
grph.neg_df <- igraph::as_data_frame(grph.neg, 'both')
grph.neg_df_vert <- grph.neg_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.neg_df_vert$"taxonomy-5"))
# 18 Dino-Group-II
# 4 Dino-Group-I
# 17 Spumellarida
# Positive network- oxycline
grph.oxycline.pos_df <- igraph::as_data_frame(grph.oxycline.pos, 'both')
grph.oxycline.pos_df_vert <- grph.oxycline.pos_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.oxycline.pos_df_vert$"taxonomy-5"))
# 34 Dino-Group-II
# 1 Dino-Group-I
# 24 Spumellarida
# Negative network- oxycline
grph.oxycline.neg_df <- igraph::as_data_frame(grph.oxycline.neg, 'both')
grph.oxycline.neg_df_vert <- grph.oxycline.neg_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.oxycline.neg_df_vert$"taxonomy-5"))
# 24 Dino-Group-II
# 1 Dino-Group-I
# 9 Spumellarida
# Positive network- anoxic
grph.anoxic.pos_df <- igraph::as_data_frame(grph.anoxic.pos, 'both')
grph.anoxic.pos_df_vert <- grph.anoxic.pos_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.anoxic.pos_df_vert$"taxonomy-5"))
# 0 Dino-Group-II
# 1 Dino-Group-I
# 8 Spumellarida
# Negative network- anoxic
grph.anoxic.neg_df <- igraph::as_data_frame(grph.anoxic.neg, 'both')
grph.anoxic.neg_df_vert <- grph.anoxic.neg_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.anoxic.neg_df_vert$"taxonomy-5"))
# 0 Dino-Group-II
# 0 Dino-Group-I
# 0 SpumellaridaWhat are the interestined eukaryotic groups connected to?
# Positive associations: Syndiniales
# Pull out names of Syndiniales and Spumellarida ASVs
grph.pos_df_vert_synd <- filter(grph.pos_df_vert, `taxonomy-4` == "Syndiniales")
# filter graph to include only edges connected to those nodes
grph.pos_synd_edges <- E(grph.pos)[from(grph.pos_df_vert_synd$name)] # get edges
grph.pos.synd_subgraph <- subgraph.edges(grph.pos, grph.pos_synd_edges) # filter graph
# get taxonomy of remaining nodes, removing the Syndiniales from table (eg. only connected nodes) and grouping by taxonomy
grph.pos_df_vert %>%
filter(`name` %in% V(grph.pos.synd_subgraph)$name & !`taxonomy-4` %in% c("Syndiniales")) %>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)
# Positive associations: Spumellarida
grph.pos_df_vert_spum <- filter(grph.pos_df_vert, `taxonomy-5` == "Spumellarida")
grph.pos_spum_edges <- E(grph.pos)[from(grph.pos_df_vert_spum$name)]
grph.pos.spum_subgraph <- subgraph.edges(grph.pos, grph.pos_spum_edges)
grph.pos_df_vert %>%
filter(`name` %in% V(grph.pos.spum_subgraph)$name & !`taxonomy-5` %in% c("Spumellarida")) %>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)
# Negative associations: Syndiniales
grph.neg_df_vert_synd <- filter(grph.neg_df_vert, `taxonomy-4` == "Syndiniales")
grph.neg_synd_edges <- E(grph.neg)[from(grph.neg_df_vert_synd$name)]
grph.neg.synd_subgraph <- subgraph.edges(grph.neg, grph.neg_synd_edges)
grph.neg_df_vert %>%
filter(`name` %in% V(grph.neg.synd_subgraph)$name & !`taxonomy-4` %in% c("Syndiniales")) %>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)
# Negative associations: Spumellarida
grph.neg_df_vert_spum <- filter(grph.neg_df_vert, `taxonomy-5` == "Spumellarida")
grph.neg_spum_edges <- E(grph.neg)[from(grph.neg_df_vert_spum$name)]
grph.neg.spum_subgraph <- subgraph.edges(grph.neg, grph.neg_spum_edges)
grph.neg_df_vert %>%
filter(`name` %in% V(grph.neg.spum_subgraph)$name & !`taxonomy-5` %in% c("Spumellarida")) %>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)
# Also ckeck out Cariacotrichea to hypothesize about possible symbiosis partners
# Positive associations only
grph.pos_df_vert_cari <- filter(grph.pos_df_vert, `taxonomy-4` == "Cariacotrichea")
grph.pos_cari_edges <- E(grph.pos)[from(grph.pos_df_vert_cari$name)]
grph.pos.cari_subgraph <- subgraph.edges(grph.pos, grph.pos_cari_edges)
grph.pos_df_vert %>%
filter(`name` %in% V(grph.pos.cari_subgraph)$name & !`taxonomy-4` %in% c("Cariacotrichea"))%>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)Analyze node-level measures for keystone-ness
Calculate 4 parameters for each individual node:
- degree (de) = number of edges connected to the node
- strength (st) = sum of the weights of all the edges connected to the node
- betweenness centrality (be) = the number of shortest paths (between all other nodes) that go through the node
- closeness centrality (cc) = average distance (number of edges) of the node to any other node
- local clustering coefficient (l.cluster) , aka transitivity = the proportion of two nodes that are connected by a third node, of being connected to each other (eg. how many of a node’s “friends” know each other?)
# First change the weights of the edges (the strength of association) to absolute value. This won't work if negative edge weights are left with the negative signs
E(grph)$weight <- abs(E(grph)$weight)
# calculate parameters
names=V(grph)$name
de=degree(grph)
st=graph.strength(grph)
be=betweenness(grph, normalized=T)
cc = closeness(grph)
l.cluster=transitivity(grph, "local")
# assemble dataset and match full taxonomy
fulldateset_node_measures <- data.frame(ID=names, degree=de, strength=st, betweenness=be, closeness = cc, clustering_coefficient = l.cluster)
# Put back bac taxaonomy
temp1 <- left_join(fulldateset_node_measures[1:dim(otu_table(ps_bac_pruned_3domains))[1],], bac_taxonomy, by = c("ID" = "#OTU ID"))
# delete "Taxonomy-9" and "refined Taxonomy" columns
temp1 <- select(temp1, -"taxonomy-9", -"Refined taxonomy")
temp2 <- left_join(fulldateset_node_measures[sum(dim(otu_table(ps_bac_pruned_3domains))[1],1):sum(dim(otu_table(ps_bac_pruned_3domains))[1],dim(otu_table(ps_arch_pruned_3domains))[1]),], arch_taxonomy, by = c("ID" = "#OTU ID"))
temp3 <- left_join(fulldateset_node_measures[sum(dim(otu_table(ps_arch_pruned_3domains))[1], dim(otu_table(ps_bac_pruned_3domains))[1],1):sum(dim(otu_table(ps_arch_pruned_3domains))[1], dim(otu_table(ps_bac_pruned_3domains))[1],dim(otu_table(ps_euk_pruned_3domains))[1]),], euk_taxonomy, by = c("ID" = "#ASV ID"))
# Rename col names to match those from Bac and Arch
temp3 <- temp3 %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# combine back all 3 domains, with new names as row names in a dataframe
fulldateset_node_measures <- rbind(temp1, temp2, temp3)
fulldateset_node_measuresPlot betweeness vs degree for each node. - Tipton et al. argue that nodes with high betweenness are “bottlenecks” or important connectors and nodes with high degree are “hubs” - Berry et al. argue that nodes with low betweenness, high degree, high closeness, and high transitivity are candidate keystone species - Add in closeness into the node’s plotly label since these don’t vary much node-to-node and wouldn’t make sense to plot
# replace NA in taxonomy with unidentified
# remove nodes with 0 betweenness (can't calculate log10 of 0)
# replace NaN clustering coefs with 0
fulldateset_node_measures <- fulldateset_node_measures %>%
replace(is.na(.), "unidentified") %>%
filter(!betweenness == 0)
# get enough colors and randomly rearrange so they are easier to separate on the plot
mycolors <- colorRampPalette(brewer.pal(12, "Paired"))(length(unique(fulldateset_node_measures$`taxonomy-3`)))
set.seed(123)
mycolors <- sample(mycolors)
# plot with plotly and so I can hover over points and determine which taxa they are
p <- ggplot(fulldateset_node_measures, aes(x = degree, y = betweenness, ID = ID, shape = `taxonomy-1`, `taxonomy-2` = `taxonomy-2`, color = `taxonomy-3`, `taxonomy-4` = `taxonomy-4`, `taxonomy-5` = `taxonomy-5`)) +
geom_point(size = 4) +
scale_y_continuous(trans='log10') +
scale_color_manual(values = mycolors) +
theme(legend.title = element_blank()) +
theme_bw()
p
ggplotly(p, tooltip = c("ID","taxonomy-2", "taxonomy-3", "taxonomy-4", "taxonomy-5"))
Make static figure for manuscript
p2 <- ggplot(fulldateset_node_measures, aes(x = degree, y = betweenness, shape = `taxonomy-1`, color = `taxonomy-3`)) +
geom_point(size = 4) +
scale_y_continuous(trans='log10') +
scale_color_manual(values = mycolors, name = "") +
scale_shape_manual(values = c(19,17,15,18), name = "") +
theme(legend.title=element_blank(),
axis.text = element_text(size=8),
axis.text.x = element_text(size=8, angle = 45, hjust = 1),
axis.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2),
legend.box.margin=margin(-10,-10,-10,-10),
plot.margin=grid::unit(c(0,0,0,0), "mm")) +
theme_bw()
p2
ggsave("figures/betweenness_vs_degree.eps",p2, width = 10, height = 6, units = c("in"))
How many edges does each group have as an aggregate
de_df <- as.data.frame(de)
de_df$name <- rownames(de_df)
de_df <- left_join(de_df, all_temp, by = "name")
de_df %>%
group_by(`taxonomy-1`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-2`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-3`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-4`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-5`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
Save and re-load environment
# save.image("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_nodelevelmeasures.RData")Or load if coming back
load("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_nodelevelmeasures.RData")Oct-Nov 2021 Revisions
In response to reviews, re-run some analyses
Make all networks same size so that they are directly comparable-
Prepare for whole network analysis
Make subsets that will allow for controlling for network size later on - top 100 euks, bac, arch (which will be combined into a 300-member dataset) - top 150 bac and arch (which will be combined into a 300-member dataset of Proks only)
# Retain top 100 most abundant bacteria
bac_top100 <- names(sort(taxa_sums(ps_bac_ra), TRUE)[1:100])
ps_bac_top100 <- prune_taxa(bac_top100, ps_bac)
# Retain top 150 most abundant bacteria
bac_top150 <- names(sort(taxa_sums(ps_bac_ra), TRUE)[1:150])
ps_bac_top150 <- prune_taxa(bac_top150, ps_bac)
# Retain top 100 most abundant archaea
arch_top100 <- names(sort(taxa_sums(ps_arch_ra), TRUE)[1:100])
ps_arch_top100 <- prune_taxa(arch_top100, ps_arch)
# Retain top 150 most abundant archaea
arch_top150 <- names(sort(taxa_sums(ps_arch_ra), TRUE)[1:150])
ps_arch_top150 <- prune_taxa(arch_top150, ps_arch)
# Retain top 100 most abundant archaea
euk_top100 <- names(sort(taxa_sums(ps_ra), TRUE)[1:100])
ps_euk_top100 <- prune_taxa(euk_top100, ps)
# Retain top 150 most abundant archaea
euk_top150 <- names(sort(taxa_sums(ps_ra), TRUE)[1:150])
ps_euk_top150 <- prune_taxa(euk_top150, ps)Change the sample names in the otu tables to sample “Type”
# Archaea
# # remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_top100)))
# sort SampleKey by order of column names from ps_arch_top100
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_top100))))
# and fill in sample names of filtered phyloseq objects
sample_names(ps_arch_top100) <- samplekey_A$Type
# and ps_arch_top150
sample_names(ps_arch_top150) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_top100)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_top100))))
sample_names(ps_bac_top100) <- samplekey_B$Type
sample_names(ps_bac_top150) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_top100)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_top100))))
sample_names(ps_euk_top100) <- samplekey_E$Type
sample_names(ps_euk_top150) <- samplekey_E$Type
Prepare for oxycline-only
Similar to above, pull out top 100 from each domain/ redox regime in order to make networks of the same size
# Retain top 100 most abundant bacteria
bac_top100_oxycline <- names(sort(taxa_sums(ps_bac_ra_oxycline), TRUE)[1:100])
ps_bac_top100_oxycline <- prune_taxa(bac_top100_oxycline, ps_bac_oxycline)
# Retain top 100 most abundant archaea
arch_top100_oxycline <- names(sort(taxa_sums(ps_arch_ra_oxycline), TRUE)[1:100])
ps_arch_top100_oxycline <- prune_taxa(arch_top100_oxycline, ps_arch_oxycline)
# Retain top 100 most abundant eukarya
euk_top100_oxycline <- names(sort(taxa_sums(ps_euk_ra_oxycline), TRUE)[1:100])
ps_euk_top100_oxycline <- prune_taxa(euk_top100_oxycline, ps_euk_oxycline)
Change the sample names in the otu tables to “Type”
# Archaea
# remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_top100_oxycline)))
# sort SampleKey by order of column names from ps_arch_top100_oxycline
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_top100_oxycline))))
sample_names(ps_arch_top100_oxycline) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_top100_oxycline)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_top100_oxycline))))
sample_names(ps_bac_top100_oxycline) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_top100_oxycline)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_top100_oxycline))))
sample_names(ps_euk_top100_oxycline) <- samplekey_E$Type
Prepare for anoxic-only
# Retain top 100 most abundant bacteria
bac_top100_anoxic <- names(sort(taxa_sums(ps_bac_ra_anoxic), TRUE)[1:100])
ps_bac_top100_anoxic <- prune_taxa(bac_top100_anoxic, ps_bac_anoxic)
# Retain top 100 most abundant archaea
arch_top100_anoxic <- names(sort(taxa_sums(ps_arch_ra_anoxic), TRUE)[1:100])
ps_arch_top100_anoxic <- prune_taxa(arch_top100_anoxic, ps_arch_anoxic)
# Retain top 100 most abundant eukarya
euk_top100_anoxic <- names(sort(taxa_sums(ps_euk_ra_anoxic), TRUE)[1:100])
ps_euk_top100_anoxic <- prune_taxa(euk_top100_anoxic, ps_euk_anoxic)
Change the sample names in the otu tables to “Type”
# Archaea
# remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_top100_anoxic)))
# sort SampleKey by order of column names from ps_arch_top100_anoxic
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_top100_anoxic))))
sample_names(ps_arch_top100_anoxic) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_top100_anoxic)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_top100_anoxic))))
sample_names(ps_bac_top100_anoxic) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_top100_anoxic)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_top100_anoxic))))
sample_names(ps_euk_top100_anoxic) <- samplekey_E$Type
Prepare for euxinic-only
Pull out samples from euxinic regime
# Retain top 100 most abundant bacteria
bac_top100_euxinic <- names(sort(taxa_sums(ps_bac_ra_euxinic), TRUE)[1:100])
ps_bac_top100_euxinic <- prune_taxa(bac_top100_euxinic, ps_bac_euxinic)
# Retain top 100 most abundant archaea
arch_top100_euxinic <- names(sort(taxa_sums(ps_arch_ra_euxinic), TRUE)[1:100])
ps_arch_top100_euxinic <- prune_taxa(arch_top100_euxinic, ps_arch_euxinic)
# Retain top 100 most abundant archaea
euk_top100_euxinic <- names(sort(taxa_sums(ps_euk_ra_euxinic), TRUE)[1:100])
ps_euk_top100_euxinic <- prune_taxa(euk_top100_euxinic, ps_euk_euxinic)
Change the sample names in the otu tables to “Type”
# Archaea
# remove missing archaea samples from samplekey_A
samplekey_A <- filter(samplekey, SampleID_arch %in% colnames(otu_table(ps_arch_top100_euxinic)))
# sort SampleKey by order of column names from ps_arch_top100_euxinic
samplekey_A <- samplekey_A %>% arrange(factor(SampleID_arch, levels = colnames(otu_table(ps_arch_top100_euxinic))))
sample_names(ps_arch_top100_euxinic) <- samplekey_A$Type
# Bacteria
samplekey_B <- filter(samplekey, SampleID_bac %in% colnames(otu_table(ps_bac_top100_euxinic)))
samplekey_B <- samplekey_B %>% arrange(factor(SampleID_bac, levels = colnames(otu_table(ps_bac_top100_euxinic))))
sample_names(ps_bac_top100_euxinic) <- samplekey_B$Type
# Eukaryotes
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_top100_euxinic)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_top100_euxinic))))
sample_names(ps_euk_top100_euxinic) <- samplekey_E$Type
Eukaryotic parasite-only and nonparasite-only networks
Remove all known parasites from eukaryotic table then put back together into whole dataset
# Flag the parasites in the eukaryotic table according to known parasites identified in literature review: Syndiniales, Oligohymenophorea, Labyrinthulomycetes, chytrids, Cryomonadida: Protaspa, Apicomplexa and Perkinsida (alveolates)
nonparasites <- as.data.frame(tax_table(ps)) %>%
filter(!grepl('Syndiniales', Class)) %>%
filter(!grepl('Oligohymenophorea', Class)) %>%
filter(!grepl('Labyrinthulomycetes', Class)) %>%
filter(!grepl('Chytridiomycota', Class)) %>%
filter(!grepl('Protaspa-lineage', Family)) %>%
filter(!grepl('Apicomplexa', Division)) %>%
filter(!grepl('Perkinsida', Class))
nonparasites# Reduced from 13,427 rows to 7,344
# parasites only
parasites <- as.data.frame(tax_table(ps)) %>%
filter(!row.names(as.data.frame(tax_table(ps))) %in% rownames(nonparasites))
parasites# 6083 parasites
# Make new phyloseq objects
ps_euk_nonparasites <- prune_taxa(rownames(nonparasites), ps)
ps_euk_parasites <- prune_taxa(rownames(parasites), ps)
# Retain top 100 from each of these
euk_top100_nonparasites <- names(sort(taxa_sums(ps_euk_nonparasites), TRUE)[1:100])
ps_euk_nonparasites_top100 <- prune_taxa(euk_top100_nonparasites, ps)
euk_top100_parasites <- names(sort(taxa_sums(ps_euk_parasites), TRUE)[1:100])
ps_euk_parasites_top100 <- prune_taxa(euk_top100_parasites, ps)
Export table of parasite taxonomy for supplemental table in manuscript
write_csv(distinct(parasites), "Figures/parasites_list.csv")
distinct(parasites)# How many parasites out of total euks?
dim(parasites)[1]/dim(tax_table(ps))[1][1] 0.4530424Change the sample names in the otu tables to sample “Type”
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_nonparasites_top100)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_nonparasites_top100))))
sample_names(ps_euk_nonparasites_top100) <- samplekey_E$Type
samplekey_E <- filter(samplekey, SampleID_euk %in% colnames(otu_table(ps_euk_parasites_top100)))
samplekey_E <- samplekey_E %>% arrange(factor(SampleID_euk, levels = colnames(otu_table(ps_euk_parasites_top100))))
sample_names(ps_euk_parasites_top100) <- samplekey_E$TypeRun SpiecEasi
Full dataset
Using top 100 OTUs/ASVs from each of the 3 domains
Remove samples from the phyloseq objects that are not in all 3 domains and reorder samples so they are in same order in all 3 objects
bac_arch_common <- intersect(sample_names(ps_bac_ra_pruned), sample_names(ps_arch_ra_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_ra_pruned))
ps_bac_pruned_3domains_top100 <- prune_samples(all_common, ps_bac_top100)
ps_arch_pruned_3domains_top100 <- prune_samples(all_common, ps_arch_top100)
ps_euk_pruned_3domains_top100 <- prune_samples(all_common, ps_euk_top100)
otu_table(ps_arch_pruned_3domains_top100) <- otu_table(ps_arch_pruned_3domains_top100)[,sample_names(ps_bac_pruned_3domains_top100)]
otu_table(ps_euk_pruned_3domains_top100) <- otu_table(ps_euk_pruned_3domains_top100)[,sample_names(ps_bac_pruned_3domains_top100)]
sample_data(ps_bac_pruned_3domains)Sample Data: [36 samples by 66 sample variables]:sample_data(ps_arch_pruned_3domains)Sample Data: [36 samples by 66 sample variables]:sample_data(ps_euk_pruned_3domains)Sample Data: [36 samples by 66 sample variables]:#Run Spieceasi on 3 domain dataset with top 100 from each domain
pargs <- list(seed=10010)
se_3domains_top100 <- spiec.easi(list(ps_bac_pruned_3domains_top100, ps_arch_pruned_3domains_top100, ps_euk_pruned_3domains_top100), method='glasso', lambda.min.ratio=1e-2, nlambda=100, pulsar.params=pargs)Applying data transformations...
Selecting model with pulsar using stars...3 Domains, Only nonparasite eukaryotes
Remove samples from the phyloseq objects that are not in all 3 datasets. Reorder samples so they are in same order in all 3 objects
bac_arch_common <- intersect(sample_names(ps_bac_ra_pruned), sample_names(ps_arch_ra_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_ra_pruned))
ps_bac_pruned_3domains_top100 <- prune_samples(all_common, ps_bac_top100)
ps_arch_pruned_3domains_top100 <- prune_samples(all_common, ps_arch_top100)
ps_euk_nonparasites_pruned_3domains_top100 <- prune_samples(all_common, ps_euk_nonparasites_top100)
otu_table(ps_arch_pruned_3domains_top100) <- otu_table(ps_arch_pruned_3domains_top100)[,sample_names(ps_bac_pruned_3domains_top100)]
otu_table(ps_euk_nonparasites_pruned_3domains_top100) <- otu_table(ps_euk_nonparasites_pruned_3domains_top100)[,sample_names(ps_bac_pruned_3domains_top100)]
sample_data(ps_bac_pruned_3domains_top100)Sample Data: [36 samples by 66 sample variables]:sample_data(ps_arch_pruned_3domains_top100)Sample Data: [36 samples by 66 sample variables]:sample_data(ps_euk_nonparasites_pruned_3domains_top100)Sample Data: [36 samples by 66 sample variables]:Run
getStability(se_3domains_top100_nonparasites)
[1] 0.045069233 Domains, Only parasite eukaryotes
Remove samples from the phyloseq objects that are not in all 3 datasets. Reorder samples so they are in same order in all 3 objects
bac_arch_common <- intersect(sample_names(ps_bac_ra_pruned), sample_names(ps_arch_ra_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_ra_pruned))
ps_bac_pruned_3domains_top100 <- prune_samples(all_common, ps_bac_top100)
ps_arch_pruned_3domains_top100 <- prune_samples(all_common, ps_arch_top100)
ps_euk_parasites_pruned_3domains_top100 <- prune_samples(all_common, ps_euk_parasites_top100)
otu_table(ps_arch_pruned_3domains_top100) <- otu_table(ps_arch_pruned_3domains_top100)[,sample_names(ps_bac_pruned_3domains_top100)]
otu_table(ps_euk_parasites_pruned_3domains_top100) <- otu_table(ps_euk_parasites_pruned_3domains_top100)[,sample_names(ps_bac_pruned_3domains_top100)]
sample_data(ps_bac_pruned_3domains_top100)Sample Data: [36 samples by 66 sample variables]:sample_data(ps_arch_pruned_3domains_top100)Sample Data: [36 samples by 66 sample variables]:sample_data(ps_euk_parasites_pruned_3domains_top100)Sample Data: [36 samples by 66 sample variables]:Run
#Run Spieceasi on 3 domain dataset with top 100 from each domain
pargs <- list(seed=1001)
se_3domains_top100_parasites <- spiec.easi(list(ps_bac_pruned_3domains_top100, ps_arch_pruned_3domains_top100, ps_euk_parasites_pruned_3domains_top100), method='glasso', lambda.min.ratio=1e-2, nlambda=100, pulsar.params=pargs)Applying data transformations...
Selecting model with pulsar using stars...
Fitting final estimate with glasso...
donegetStability(se_3domains_top100_parasites)[1] 0.04376254Two-Domain dataset
Prkaryotes only 150 from each domain, to keep size of network consistent
Remove samples from the phyloseq objects that are not in both domains and reorder samples so they are in same order in all 3 objects
bac_arch_common <- intersect(sample_names(ps_bac_ra_pruned), sample_names(ps_arch_ra_pruned))
ps_bac_pruned_2domains_top150 <- prune_samples(bac_arch_common, ps_bac_top150)
ps_arch_pruned_2domains_top150 <- prune_samples(bac_arch_common, ps_arch_top150)
otu_table(ps_arch_pruned_2domains_top150) <- otu_table(ps_arch_pruned_2domains_top150)[,sample_names(ps_bac_pruned_2domains_top150)]
sample_data(ps_bac_pruned_2domains_top150)Sample Data: [36 samples by 66 sample variables]:sample_data(ps_arch_pruned_2domains_top150)Sample Data: [36 samples by 66 sample variables]:Run
#Run Spieceasi while controlling for dataset size-
# Use the 150-member subset of each, bac and arch, so the full dataset is 300 members
# Same size as full dataset network
pargs <- list(seed=10010)
se_2domains_top150 <- spiec.easi(list(ps_bac_pruned_2domains_top150, ps_arch_pruned_2domains_top150), method='glasso', lambda.min.ratio=1e-2, nlambda=200, pulsar.params=pargs)
getStability(se_2domains_top150)Oxycline, all 3 domains
bac_arch_common <- intersect(sample_names(ps_bac_oxycline_pruned), sample_names(ps_arch_oxycline_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_oxycline_pruned))
ps_bac_pruned_3domains_top100_oxycline <- prune_samples(all_common, ps_bac_top100_oxycline)
ps_arch_pruned_3domains_top100_oxycline <- prune_samples(all_common, ps_arch_top100_oxycline)
ps_euk_pruned_3domains_top100_oxycline <- prune_samples(all_common, ps_euk_top100_oxycline)
otu_table(ps_arch_pruned_3domains_top100_oxycline) <- otu_table(ps_arch_pruned_3domains_top100_oxycline)[,sample_names(ps_bac_pruned_3domains_top100_oxycline)]
otu_table(ps_euk_pruned_3domains_top100_oxycline) <- otu_table(ps_euk_pruned_3domains_top100_oxycline)[,sample_names(ps_bac_pruned_3domains_top100_oxycline)]
sample_data(ps_bac_pruned_3domains_top100_oxycline)Sample Data: [21 samples by 66 sample variables]:sample_data(ps_arch_pruned_3domains_top100_oxycline)Sample Data: [21 samples by 66 sample variables]:sample_data(ps_euk_pruned_3domains_top100_oxycline)Sample Data: [21 samples by 66 sample variables]:Run
#Run Spieceasi while controlling for dataset size-
# Use the 100-member subset of each, bac, arch, and euk from the oxycline, so the dataset is 300 members
# Same size as full dataset network
pargs <- list(seed=10010)
se_3domains_top100_oxycline <- spiec.easi(list(ps_bac_pruned_3domains_top100_oxycline, ps_arch_pruned_3domains_top100_oxycline, ps_euk_pruned_3domains_top100_oxycline), method='glasso', lambda.min.ratio=1e-2, nlambda=200, pulsar.params=pargs)
getStability(se_3domains_top100_oxycline)Anoxic, all 3 domains
bac_arch_common <- intersect(sample_names(ps_bac_anoxic_pruned), sample_names(ps_arch_anoxic_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_anoxic_pruned))
ps_bac_pruned_3domains_top100_anoxic <- prune_samples(all_common, ps_bac_top100_anoxic)
ps_arch_pruned_3domains_top100_anoxic <- prune_samples(all_common, ps_arch_top100_anoxic)
ps_euk_pruned_3domains_top100_anoxic <- prune_samples(all_common, ps_euk_top100_anoxic)
otu_table(ps_arch_pruned_3domains_top100_anoxic) <- otu_table(ps_arch_pruned_3domains_top100_anoxic)[,sample_names(ps_bac_pruned_3domains_top100_anoxic)]
otu_table(ps_euk_pruned_3domains_top100_anoxic) <- otu_table(ps_euk_pruned_3domains_top100_anoxic)[,sample_names(ps_bac_pruned_3domains_top100_anoxic)]
sample_data(ps_bac_pruned_3domains_top100_anoxic)Sample Data: [11 samples by 66 sample variables]:sample_data(ps_arch_pruned_3domains_top100_anoxic)Sample Data: [11 samples by 66 sample variables]:sample_data(ps_euk_pruned_3domains_top100_anoxic)Sample Data: [11 samples by 66 sample variables]:#Run Spieceasi while controlling for dataset size-
# Use the 100-member subset of each, bac, arch, and euk from the oxycline, so the dataset is 300 members
# Same size as full dataset network
pargs <- list(seed=10010)
se_3domains_top100_anoxic <- spiec.easi(list(ps_bac_pruned_3domains_top100_anoxic, ps_arch_pruned_3domains_top100_anoxic, ps_euk_pruned_3domains_top100_anoxic), method='glasso', lambda.min.ratio=1e-2, nlambda=250, pulsar.params=pargs)
getStability(se_3domains_top100_anoxic)Euxinic, all 3 domains
bac_arch_common <- intersect(sample_names(ps_bac_euxinic_pruned), sample_names(ps_arch_euxinic_pruned))
all_common <- intersect(bac_arch_common, sample_names(ps_euk_euxinic_pruned))
ps_bac_pruned_3domains_top100_euxinic <- prune_samples(all_common, ps_bac_top100_euxinic)
ps_arch_pruned_3domains_top100_euxinic <- prune_samples(all_common, ps_arch_top100_euxinic)
ps_euk_pruned_3domains_top100_euxinic <- prune_samples(all_common, ps_euk_top100_euxinic)
otu_table(ps_arch_pruned_3domains_top100_euxinic) <- otu_table(ps_arch_pruned_3domains_top100_euxinic)[,sample_names(ps_bac_pruned_3domains_top100_euxinic)]
otu_table(ps_euk_pruned_3domains_top100_euxinic) <- otu_table(ps_euk_pruned_3domains_top100_euxinic)[,sample_names(ps_bac_pruned_3domains_top100_euxinic)]
sample_data(ps_bac_pruned_3domains_top100_euxinic)Sample Data: [4 samples by 66 sample variables]:sample_data(ps_arch_pruned_3domains_top100_euxinic)Sample Data: [4 samples by 66 sample variables]:sample_data(ps_euk_pruned_3domains_top100_euxinic)Sample Data: [4 samples by 66 sample variables]:Run
#Run Spieceasi while controlling for dataset size-
# Use the 100-member subset of each, bac, arch, and euk from the oxycline, so the dataset is 300 members
# Same size as full dataset network
pargs <- list(seed=10010)
se_3domains_top100_euxinic <- spiec.easi(list(ps_bac_pruned_3domains_top100_euxinic, ps_arch_pruned_3domains_top100_euxinic, ps_euk_pruned_3domains_top100_euxinic), method='glasso', lambda.min.ratio=1e-1, nlambda=100, pulsar.params=pargs)
getStability(se_3domains_top100_euxinic)–> no matter the parameters, I still can’t get this to work. It’s too small
Save output from SpiecEasi
Need to save in two portions because they’re too big-
save(se_3domains_top100, file = "EnvironmentBackups/CariacoEuks_revisions2_additionalvars_1.RData")
save(se_2domains_top150, file = "EnvironmentBackups/CariacoEuks_revisions2_additionalvars_2.RData")
save(se_3domains_top100_oxycline, file = "EnvironmentBackups/CariacoEuks_revisions2_additionalvars_3.RData")
save(se_3domains_top100_anoxic, file = "EnvironmentBackups/CariacoEuks_revisions2_additionalvars_4.RData")
save(se_3domains_top100_nonparasites, file = "EnvironmentBackups/CariacoEuks_revisions2_additionalvars_5.RData")
save(se_3domains_top100_parasites, file = "EnvironmentBackups/CariacoEuks_revisions2_additionalvars_6.RData")
# these are very large. remove them and load one-by-one while working:
# rm(se_3domains_top100, se_2domains_top150, se_3domains_top100_oxycline, se_3domains_top100_anoxic, se_3domains_top100_nonparasites, se_3domains_top100_parasites)Build network objects
Full dataset
First extract ASV names from original phyloseq objects in order to retain for network nodes. Make sure these are in same order in which they went in SpiecEasi
load("EnvironmentBackups/CariacoEuks_revisions2_additionalvars_1.RData")
top300_df <- bind_rows(data.frame(otu_table(ps_bac_top100)), data.frame(otu_table(ps_arch_top100)), data.frame(otu_table(ps_euk_top100)))
top300_df#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se_3domains_top100)
table(as.numeric(adj.mat))
0 1
85064 4936 # Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se_3domains_top100)))
weighted.adj.mat <- se.cor*getRefit(se_3domains_top100)
#Convert to graph objects
grph.unweighted.top300 <- adj2igraph(adj.mat)
grph.top300 <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.top300)$name <- rownames(top300_df)
# V(grph.top300)
# Make size of nodes proportional to degree (number of connections)
V(grph.top300)$size <- (degree(grph.top300) + 1) # the +1 avoids size zero vertices
# Change width of edges to be proportional to their weights
E(grph.top300)$width <- abs(E(grph.top300)$weight)*10
# Scale node sizes to be smaller
V(grph.top300)$size <- V(grph.top300)$size/2
# Join taxonomy data of each node
# Convert graph to datafram
grph.top300_df <- igraph::as_data_frame(grph.top300, 'both')
# make formatted taxonomy tables for each domain
bac_top100_tax_table <- as.data.frame(tax_table(ps_bac_pruned_3domains_top100)) %>%
mutate(name = rownames(tax_table(ps_bac_pruned_3domains_top100)))
arch_top100_tax_table <- as.data.frame(tax_table(ps_arch_pruned_3domains_top100)) %>%
mutate(name = rownames(tax_table(ps_arch_pruned_3domains_top100)))
euk_top100_tax_table <- as.data.frame(tax_table(ps_euk_pruned_3domains_top100)) %>%
mutate(name = rownames(tax_table(ps_euk_pruned_3domains_top100)))
#link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph.top300_df$vertices[1:ntaxa(ps_bac_pruned_3domains_top100),],
bac_top100_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph.top300_df$vertices[ntaxa(ps_arch_pruned_3domains_top100)+1:ntaxa(ps_arch_pruned_3domains_top100),],arch_top100_tax_table, by = "name")
euk_temp <- left_join(grph.top300_df$vertices[ntaxa(ps_euk_pruned_3domains_top100)+ntaxa(ps_euk_pruned_3domains_top100)+1:ntaxa(ps_euk_pruned_3domains_top100),], euk_top100_tax_table, by = "name")
# rename column names in euk table to match others
euk_temp <- euk_temp %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp, euk_temp)
# remake into graph
grph.top300 <- graph_from_data_frame(grph.top300_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "blue", "grey")
# Make color vector
domain_color_top300 <- dtype[as.numeric(as.factor(V(grph.top300)$"taxonomy-1"))]
# Plot
plot(grph.top300,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300),
vertex.color=domain_color_top300)
title("SpiecEasi Network: All domains")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/3domains_top300_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300),
vertex.color=domain_color_top300)
title("SpiecEasi Network: All domains")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Positive and negative edges separately
# Subset based on pos or neg edges
grph.top300.pos <-delete.edges(grph.top300, which(E(grph.top300)$weight<0))
grph.top300.neg <-delete.edges(grph.top300, which(E(grph.top300)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.top300.pos <- delete.vertices(grph.top300.pos, which(degree(grph.top300.pos)==0))
grph.top300.neg <- delete.vertices(grph.top300.neg, which(degree(grph.top300.neg)==0))
# Make color vector for each
domain_color_top300_pos <- dtype[as.numeric(as.factor(V(grph.top300.pos)$"taxonomy-1"))]
domain_color_top300_neg <- dtype[as.numeric(as.factor(V(grph.top300.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.top300.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.pos),
vertex.color=domain_color_top300_pos)
title("SpiecEasi Network: All domains, Positive Edges only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Plot neg
plot(grph.top300.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.neg),
vertex.color=domain_color_top300_neg)
title("SpiecEasi Network: All domains, Negative Edges Only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_top300_posedges_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.pos),
vertex.color=domain_color_top300_pos)
title("SpiecEasi Network: All domains, Positive Edges Only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/3domains_top300_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.top300.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.neg),
vertex.color=domain_color_oxycline_neg)title("SpiecEasi Network: All domains, Negative Edges Only")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Two Domain dataset
First extract ASV names from original phyloseq objects in order to retain for network nodes. Make sure these are in same order in which they went in SpiecEasi
rm(se_3domains_top100)
load("EnvironmentBackups/CariacoEuks_revisions2_additionalvars_2.RData")
top300_2domains_df <- bind_rows(data.frame(otu_table(ps_bac_top150)), data.frame(otu_table(ps_arch_top150)))
top300_2domains_df#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se_2domains_top150)
table(as.numeric(adj.mat))
0 1
83100 6900 # Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se_2domains_top150)))
weighted.adj.mat <- se.cor*getRefit(se_2domains_top150)
#Convert to graph objects
grph.unweighted.top300 <- adj2igraph(adj.mat)
grph.2domains.top300 <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.2domains.top300)$name <- rownames(top300_2domains_df)
# Make size of nodes proportional to degree (number of connections)
V(grph.2domains.top300)$size <- (degree(grph.2domains.top300) + 1) # the +1 avoids size zero vertices
# Change width of edges to be proportional to their weights
E(grph.2domains.top300)$width <- abs(E(grph.2domains.top300)$weight)*10
# Scale node sizes to be smaller
V(grph.2domains.top300)$size <- V(grph.2domains.top300)$size/2
# Join taxonomy data of each node
# Convert graph to datafram
top300_2domains_df <- igraph::as_data_frame(grph.2domains.top300, 'both')
# make formatted taxonomy tables for each domain
bac_top150_tax_table <- as.data.frame(tax_table(ps_bac_pruned_2domains_top150)) %>%
mutate(name = rownames(tax_table(ps_bac_pruned_2domains_top150)))
arch_top150_tax_table <- as.data.frame(tax_table(ps_arch_pruned_2domains_top150)) %>%
mutate(name = rownames(tax_table(ps_arch_pruned_2domains_top150)))
#link graph data frame to formatted taxonomy tables
bac_temp <- left_join(top300_2domains_df$vertices[1:ntaxa(ps_bac_pruned_2domains_top150),], bac_top150_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(top300_2domains_df$vertices[ntaxa(ps_arch_pruned_2domains_top150)+1:ntaxa(ps_arch_pruned_2domains_top150),],arch_top150_tax_table, by = "name")
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp)
# remake into graph
grph.2domains.top300 <- graph_from_data_frame(top300_2domains_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "grey")
# Make color vector
domain_color_2domains_top300 <- dtype[as.numeric(as.factor(V(grph.2domains.top300)$"taxonomy-1"))]
# Plot
plot(grph.2domains.top300,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.top300),
vertex.color=domain_color_2domains_top300)
title("SpiecEasi Network: Two domains")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "No Blast Hit"),
fill=c("red","green","grey"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/2domains_top300_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.2domains.top300,
vertex.label=NA,
layout=layout_with_graphopt(grph.2domains.top300),
vertex.color=domain_color_2domains_top300)
title("SpiecEasi Network: Two domains")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "No Blast Hit"),
fill=c("red","green","grey"), border=NA)
dev.off()quartz_off_screen
2 
Positive and negative edges separately
# Subset based on pos or neg edges
grph.top300.2domains.pos <-delete.edges(grph.2domains.top300, which(E(grph.2domains.top300)$weight<0))
grph.top300.2domains.neg <-delete.edges(grph.2domains.top300, which(E(grph.2domains.top300)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.top300.2domains.pos <- delete.vertices(grph.top300.2domains.pos, which(degree(grph.top300.2domains.pos)==0))
grph.top300.2domains.neg <- delete.vertices(grph.top300.2domains.neg, which(degree(grph.top300.2domains.neg)==0))
# Make color vector for each
dtype <- c("red", "green", "grey" ) # temporarily change for this plot
domain_color_2domains_top300_pos <- dtype[as.numeric(as.factor(V(grph.top300.2domains.pos)$"taxonomy-1"))]
domain_color_2domains_top300_neg <- dtype[as.numeric(as.factor(V(grph.top300.2domains.neg)$"taxonomy-1"))]
dtype <- c("red", "green", "blue", "grey" ) # change back
# Plot pos
plot(grph.top300.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.pos),
vertex.color=domain_color_2domains_top300_pos)
title("SpiecEasi Network: Two domains, Positive Edges only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "No Blast Hit"),
fill=c("red","green","grey"), border=NA)
# Plot neg
plot(grph.top300.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.neg),
vertex.color=domain_color_2domains_top300_neg)
title("SpiecEasi Network: Two domains, Negative Edges Only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "No Blast Hit"),
fill=c("red","green","grey"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/2domains_top300_posedges_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.pos),
vertex.color=domain_color_2domains_top300_pos)
title("SpiecEasi Network: Two domains, Positive Edges Only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "No Blast Hit"),
fill=c("red","green","grey"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/2domains_top300_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.top300.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.neg),
vertex.color=domain_color_2domains_top300_neg)title("SpiecEasi Network: Two domains, Negative Edges Only")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "No Blast Hit"),
fill=c("red","green","grey"), border=NA)
dev.off()quartz_off_screen
2 
Oxycline dataset
First extract ASV names from original phyloseq objects in order to retain for network nodes. Make sure these are in same order in which they went in SpiecEasi
rm(se_2domains_top150)
load("EnvironmentBackups/CariacoEuks_revisions2_additionalvars_3.RData")
top300_oxycline_df <- bind_rows(data.frame(otu_table(ps_bac_pruned_3domains_top100_oxycline)), data.frame(otu_table(ps_arch_pruned_3domains_top100_oxycline)), data.frame(otu_table(ps_euk_pruned_3domains_top100_oxycline)))
top300_oxycline_df#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se_3domains_top100_oxycline)
table(as.numeric(adj.mat))
0 1
86930 3070 # Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se_3domains_top100_oxycline)))
weighted.adj.mat <- se.cor*getRefit(se_3domains_top100_oxycline)
#Convert to graph objects
grph.unweighted.top300.oxycline <- adj2igraph(adj.mat)
grph.top300.oxycline <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.top300.oxycline)$name <- rownames(top300_oxycline_df)
# Make size of nodes proportional to degree (number of connections)
V(grph.top300.oxycline)$size <- (degree(grph.top300.oxycline) + 1) # the +1 avoids size zero vertices
# Change width of edges to be proportional to their weights
E(grph.top300.oxycline)$width <- abs(E(grph.top300.oxycline)$weight)*10
# Scale node sizes to be smaller
V(grph.top300.oxycline)$size <- V(grph.top300.oxycline)$size/2
# Join taxonomy data of each node
# Convert graph to datafram
grph.top300_oxycline_df <- igraph::as_data_frame(grph.top300.oxycline, 'both')
# make formatted taxonomy tables for each domain
bac_top100_tax_table <- as.data.frame(tax_table(ps_bac_pruned_3domains_top100_oxycline)) %>%
mutate(name = rownames(tax_table(ps_bac_pruned_3domains_top100_oxycline)))
arch_top100_tax_table <- as.data.frame(tax_table(ps_arch_pruned_3domains_top100_oxycline)) %>%
mutate(name = rownames(tax_table(ps_arch_pruned_3domains_top100_oxycline)))
euk_top100_tax_table <- as.data.frame(tax_table(ps_euk_pruned_3domains_top100_oxycline)) %>%
mutate(name = rownames(tax_table(ps_euk_pruned_3domains_top100_oxycline)))
#link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph.top300_oxycline_df$vertices[1:ntaxa(ps_bac_pruned_3domains_top100_oxycline),],
bac_top100_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph.top300_oxycline_df$vertices[ntaxa(ps_arch_pruned_3domains_top100_oxycline)+1:ntaxa(ps_arch_pruned_3domains_top100_oxycline),],arch_top100_tax_table, by = "name")
euk_temp <- left_join(grph.top300_oxycline_df$vertices[ntaxa(ps_euk_pruned_3domains_top100_oxycline)+ntaxa(ps_euk_pruned_3domains_top100_oxycline)+1:ntaxa(ps_euk_pruned_3domains_top100_oxycline),], euk_top100_tax_table, by = "name")
# rename column names in euk table to match others
euk_temp <- euk_temp %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp, euk_temp)
# remake into graph
grph.top300.oxycline <- graph_from_data_frame(grph.top300_oxycline_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "blue", "grey")
# Make color vector
domain_color_top300_oxycline <- dtype[as.numeric(as.factor(V(grph.top300.oxycline)$"taxonomy-1"))]
# Plot
plot(grph.top300.oxycline,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline),
vertex.color=domain_color_top300_oxycline)
title("SpiecEasi Network: All domains, Oxycline")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/3domains_top300_oxycline_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.oxycline,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline),
vertex.color=domain_color_top300_oxycline)
title("SpiecEasi Network: All domains, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Positive and negative edges separately
# Subset based on pos or neg edges
grph.top300.oxycline.pos <-delete.edges(grph.top300.oxycline, which(E(grph.top300.oxycline)$weight<0))
grph.top300.oxycline.neg <-delete.edges(grph.top300.oxycline, which(E(grph.top300.oxycline)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.top300.oxycline.pos <- delete.vertices(grph.top300.oxycline.pos, which(degree(grph.top300.oxycline.pos)==0))
grph.top300.oxycline.neg <- delete.vertices(grph.top300.oxycline.neg, which(degree(grph.top300.oxycline.neg)==0))
# Make color vector for each
domain_color_top300_oxycline_pos <- dtype[as.numeric(as.factor(V(grph.top300.oxycline.pos)$"taxonomy-1"))]
domain_color_top300_oxycline_neg <- dtype[as.numeric(as.factor(V(grph.top300.oxycline.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.top300.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.pos),
vertex.color=domain_color_top300_oxycline_pos)
title("SpiecEasi Network: All domains, Positive Edges only, oxycline")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Plot neg
plot(grph.top300.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.neg),
vertex.color=domain_color_top300_oxycline_neg)
title("SpiecEasi Network: All domains, Negative Edges Only, oxycline")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_top300_posedges_oxycline_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.pos),
vertex.color=domain_color_top300_oxycline_pos)
title("SpiecEasi Network: All domains, Positive Edges Only, oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/3domains_top300_negedges_oxycline_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.top300.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.neg),
vertex.color=domain_color_top300_oxycline_neg)title("SpiecEasi Network: All domains, Negative Edges Only, oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Anoxic dataset
First extract ASV names from original phyloseq objects in order to retain for network nodes. Make sure these are in same order in which they went in SpiecEasi
rm(se_3domains_top100_oxycline)
load("EnvironmentBackups/CariacoEuks_revisions2_additionalvars_4.RData")
top300_anoxic_df <- bind_rows(data.frame(otu_table(ps_bac_pruned_3domains_top100_anoxic)), data.frame(otu_table(ps_arch_pruned_3domains_top100_anoxic)), data.frame(otu_table(ps_euk_pruned_3domains_top100_anoxic)))
top300_anoxic_df#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se_3domains_top100_anoxic)
table(as.numeric(adj.mat))
0 1
88466 1534 # Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se_3domains_top100_anoxic)))
weighted.adj.mat <- se.cor*getRefit(se_3domains_top100_anoxic)
#Convert to graph objects
grph.unweighted.top300.anoxic <- adj2igraph(adj.mat)
grph.top300.anoxic <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.top300.anoxic)$name <- rownames(top300_anoxic_df)
# Make size of nodes proportional to degree (number of connections)
V(grph.top300.anoxic)$size <- (degree(grph.top300.anoxic) + 1) # the +1 avoids size zero vertices
# Change width of edges to be proportional to their weights
E(grph.top300.anoxic)$width <- abs(E(grph.top300.anoxic)$weight)*10
# Scale node sizes to be smaller
V(grph.top300.anoxic)$size <- V(grph.top300.anoxic)$size/2
# Join taxonomy data of each node
# Convert graph to datafram
grph.top300_anoxic_df <- igraph::as_data_frame(grph.top300.anoxic, 'both')
# make formatted taxonomy tables for each domain
bac_top100_tax_table <- as.data.frame(tax_table(ps_bac_pruned_3domains_top100_anoxic)) %>%
mutate(name = rownames(tax_table(ps_bac_pruned_3domains_top100_anoxic)))
arch_top100_tax_table <- as.data.frame(tax_table(ps_arch_pruned_3domains_top100_anoxic)) %>%
mutate(name = rownames(tax_table(ps_arch_pruned_3domains_top100_anoxic)))
euk_top100_tax_table <- as.data.frame(tax_table(ps_euk_pruned_3domains_top100_anoxic)) %>%
mutate(name = rownames(tax_table(ps_euk_pruned_3domains_top100_anoxic)))
#link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph.top300_anoxic_df$vertices[1:ntaxa(ps_bac_pruned_3domains_top100_anoxic),],
bac_top100_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph.top300_anoxic_df$vertices[ntaxa(ps_arch_pruned_3domains_top100_anoxic)+1:ntaxa(ps_arch_pruned_3domains_top100_anoxic),],arch_top100_tax_table, by = "name")
euk_temp <- left_join(grph.top300_anoxic_df$vertices[ntaxa(ps_euk_pruned_3domains_top100_anoxic)+ntaxa(ps_euk_pruned_3domains_top100_anoxic)+1:ntaxa(ps_euk_pruned_3domains_top100_anoxic),], euk_top100_tax_table, by = "name")
# rename column names in euk table to match others
euk_temp <- euk_temp %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp, euk_temp)
# remake into graph
grph.top300.anoxic <- graph_from_data_frame(grph.top300_anoxic_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "blue", "grey")
# Make color vector
domain_color_top300_anoxic <- dtype[as.numeric(as.factor(V(grph.top300.anoxic)$"taxonomy-1"))]
# Plot
plot(grph.top300.anoxic,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic),
vertex.color=domain_color_top300_anoxic)
title("SpiecEasi Network: All domains, anoxic")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/3domains_top300_anoxic_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.anoxic,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic),
vertex.color=domain_color_top300_anoxic)
title("SpiecEasi Network: All domains, anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Positive and negative edges separately
# Subset based on pos or neg edges
grph.top300.anoxic.pos <-delete.edges(grph.top300.anoxic, which(E(grph.top300.anoxic)$weight<0))
grph.top300.anoxic.neg <-delete.edges(grph.top300.anoxic, which(E(grph.top300.anoxic)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.top300.anoxic.pos <- delete.vertices(grph.top300.anoxic.pos, which(degree(grph.top300.anoxic.pos)==0))
grph.top300.anoxic.neg <- delete.vertices(grph.top300.anoxic.neg, which(degree(grph.top300.anoxic.neg)==0))
# Make color vector for each
domain_color_top300_anoxic_pos <- dtype[as.numeric(as.factor(V(grph.top300.anoxic.pos)$"taxonomy-1"))]
domain_color_top300_anoxic_neg <- dtype[as.numeric(as.factor(V(grph.top300.anoxic.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.top300.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.pos),
vertex.color=domain_color_top300_anoxic_pos)
title("SpiecEasi Network: All domains, Positive Edges only, anoxic")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Plot neg
plot(grph.top300.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.neg),
vertex.color=domain_color_top300_anoxic_neg)
title("SpiecEasi Network: All domains, Negative Edges Only, anoxic")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_top300_posedges_anoxic_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.pos),
vertex.color=domain_color_top300_anoxic_pos)
title("SpiecEasi Network: All domains, Positive Edges Only, anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/3domains_top300_negedges_anoxic_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.top300.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.neg),
vertex.color=domain_color_top300_anoxic_neg)title("SpiecEasi Network: All domains, Negative Edges Only, anoxic")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Full dataset, with no parasites
First extract ASV names from original phyloseq objects in order to retain for network nodes. Make sure these are in same order in which they went in SpiecEasi
rm(se_3domains_top100_anoxic)
load("EnvironmentBackups/CariacoEuks_revisions2_additionalvars_5.RData")
top300_df_nonparasites <- bind_rows(data.frame(otu_table(ps_bac_top100)), data.frame(otu_table(ps_arch_top100)), data.frame(otu_table(ps_euk_nonparasites_top100)))
top300_df_nonparasites#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se_3domains_top100_nonparasites)Error in getOptX(est, "refit") :
object 'se_3domains_top100_nonparasites' not foundPositive and negative edges separately
# Subset based on pos or neg edges
grph.top300.nonparasites.pos <-delete.edges(grph.top300.nonparasites, which(E(grph.top300.nonparasites)$weight<0))
grph.top300.nonparasites.neg <-delete.edges(grph.top300.nonparasites, which(E(grph.top300.nonparasites)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.top300.nonparasites.pos <- delete.vertices(grph.top300.nonparasites.pos, which(degree(grph.top300.nonparasites.pos)==0))
grph.top300.nonparasites.neg <- delete.vertices(grph.top300.nonparasites.neg, which(degree(grph.top300.nonparasites.neg)==0))
# Make color vector for each
domain_color_top300_nonparasites_pos <- dtype[as.numeric(as.factor(V(grph.top300.nonparasites.pos)$"taxonomy-1"))]
domain_color_top300_nonparasites_neg <- dtype[as.numeric(as.factor(V(grph.top300.nonparasites.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.top300.nonparasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.pos),
vertex.color=domain_color_top300_nonparasites_pos)
title("SpiecEasi Network: All domains, Positive Edges only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Plot neg
plot(grph.top300.nonparasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.neg),
vertex.color=domain_color_top300_nonparasites_neg)
title("SpiecEasi Network: All domains, No Parasites, Negative Edges Only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_nonparasites_top300_posedges_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.nonparasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.pos),
vertex.color=domain_color_top300_nonparasites_pos)
title("SpiecEasi Network: All domains, No Parasites, Positive Edges Only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/3domains_nonparasites_top300_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.top300.nonparasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.neg),
vertex.color=domain_color_top300_nonparasites_neg)title("SpiecEasi Network: All domains, No Parasites, Negative Edges Only")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Full dataset, with only parasites from euks
First extract ASV names from original phyloseq objects in order to retain for network nodes. Make sure these are in same order in which they went in SpiecEasi
#Extract adjacency matrix from spiecEasi output
adj.mat <- getRefit(se_3domains_top100_parasites)
table(as.numeric(adj.mat))
0 1
84640 5360 # Extract weighted adjacency
se.cor <- cov2cor(as.matrix(getOptCov(se_3domains_top100_parasites)))
weighted.adj.mat <- se.cor*getRefit(se_3domains_top100_parasites)
#Convert to graph objects
grph.unweighted.top300.parasites <- adj2igraph(adj.mat)
grph.top300.parasites <- adj2igraph(weighted.adj.mat)
# Put back in species names
V(grph.top300.parasites)$name <- rownames(top300_df_parasites)
# Make size of nodes proportional to degree (number of connections)
V(grph.top300.parasites)$size <- (degree(grph.top300.parasites) + 1) # the +1 avoids size zero vertices
# Change width of edges to be proportional to their weights
E(grph.top300.parasites)$width <- abs(E(grph.top300.parasites)$weight)*10
# Scale node sizes to be smaller
V(grph.top300.parasites)$size <- V(grph.top300.parasites)$size/2
# Join taxonomy data of each node
# Convert graph to datafram
grph.top300.parasites_df <- igraph::as_data_frame(grph.top300.parasites, 'both')
# make formatted taxonomy tables for each domain
bac_top100_tax_table <- as.data.frame(tax_table(ps_bac_pruned_3domains_top100)) %>%
mutate(name = rownames(tax_table(ps_bac_pruned_3domains_top100)))
arch_top100_tax_table <- as.data.frame(tax_table(ps_arch_pruned_3domains_top100)) %>%
mutate(name = rownames(tax_table(ps_arch_pruned_3domains_top100)))
euk_top100_tax_table <- as.data.frame(tax_table(ps_euk_parasites_pruned_3domains_top100)) %>%
mutate(name = rownames(tax_table(ps_euk_parasites_pruned_3domains_top100)))
#link graph data frame to formatted taxonomy tables
bac_temp <- left_join(grph.top300.parasites_df$vertices[1:ntaxa(ps_bac_pruned_3domains_top100),],
bac_top100_tax_table, by = "name")
# delete columns that don't match other tax tables
bac_temp <- select(bac_temp, -"taxonomy-9", -"Refined taxonomy")
arch_temp <- left_join(grph.top300.parasites_df$vertices[ntaxa(ps_arch_pruned_3domains_top100)+1:ntaxa(ps_arch_pruned_3domains_top100),],arch_top100_tax_table, by = "name")
euk_temp <- left_join(grph.top300.parasites_df$vertices[ntaxa(ps_euk_parasites_pruned_3domains_top100)+ntaxa(ps_euk_parasites_pruned_3domains_top100)+1:ntaxa(ps_euk_parasites_pruned_3domains_top100),], euk_top100_tax_table, by = "name")
# rename column names in euk table to match others
euk_temp <- euk_temp %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# build full dataframe with all 3 domains
all_temp <- rbind(bac_temp, arch_temp, euk_temp)
# remake into graph
grph.top300.parasites <- graph_from_data_frame(grph.top300.parasites_df$edges,
directed = F,
vertices = all_temp)
# Make color paletter for domain
dtype = c("red", "green", "blue", "grey")
# Make color vector
domain_color_top300_parasites <- dtype[as.numeric(as.factor(V(grph.top300.parasites)$"taxonomy-1"))]
# Plot
plot(grph.top300.parasites,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites),
vertex.color=domain_color_top300_parasites)
title("SpiecEasi Network: All domains, Parasitic Eukaryotes Only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plot
setEPS()
postscript(file = "Figures/3domains_parasites_top300_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.parasites,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites),
vertex.color=domain_color_top300_parasites)
title("SpiecEasi Network: All domains, Parasitic Eukaryotes Only")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No blast hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Positive and negative edges separately
# Subset based on pos or neg edges
grph.top300.parasites.pos <-delete.edges(grph.top300.parasites, which(E(grph.top300.parasites)$weight<0))
grph.top300.parasites.neg <-delete.edges(grph.top300.parasites, which(E(grph.top300.parasites)$weight>0))
# For each subsetted graph, remove those nodes that are no longer connected to anything
grph.top300.parasites.pos <- delete.vertices(grph.top300.parasites.pos, which(degree(grph.top300.parasites.pos)==0))
grph.top300.parasites.neg <- delete.vertices(grph.top300.parasites.neg, which(degree(grph.top300.parasites.neg)==0))
# Make color vector for each
domain_color_top300_parasites_pos <- dtype[as.numeric(as.factor(V(grph.top300.parasites.pos)$"taxonomy-1"))]
domain_color_top300_parasites_neg <- dtype[as.numeric(as.factor(V(grph.top300.parasites.neg)$"taxonomy-1"))]
# Plot pos
plot(grph.top300.parasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.pos),
vertex.color=domain_color_top300_parasites_pos)
title("SpiecEasi Network: All domains, Positive Edges only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Plot neg
plot(grph.top300.parasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.neg),
vertex.color=domain_color_top300_parasites_neg)
title("SpiecEasi Network: All domains, No Parasites, Negative Edges Only")legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
# Save plots
setEPS()
postscript(file = "Figures/3domains_parasites_top300_posedges_spieceasi_network.eps", width = 5.5, height = 5)plot(grph.top300.parasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.pos),
vertex.color=domain_color_top300_parasites_pos)
title("SpiecEasi Network: All domains, No Parasites, Positive Edges Only, Oxycline")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 setEPS()
postscript(file = "Figures/3domains_parasites_top300_negedges_spieceasi_network.eps", width = 5.5, height = 5)
plot(grph.top300.parasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.neg),
vertex.color=domain_color_top300_parasites_neg)title("SpiecEasi Network: All domains, No Parasites, Negative Edges Only")
legend("topright",bty = "n",
legend=c("Archaea", "Bacteria", "Eukarya", "No Blast Hit"),
fill=c("red","green","blue", "grey"), border=NA)
dev.off()quartz_off_screen
2 
Save and re-load
Or load if coming back
load("EnvironmentBackups/CariacoEuks_postanalysis_vars_upto_Oct2021_newNetworks.RData")Summary network figures for manuscript
Using the new, size-controlled network plots
First- All depths, oxycline, anoxic networks:
# Set up in panels
op <- par(oma=c(2,.5,.5,0),# Room for the titles and legend
mfrow=c(3,2),
mai=c(.15,.3,.15,.1))
# Panel 1- All depths, positive network
plot(grph.top300.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.pos),
vertex.color=domain_color_top300_pos)
mtext ("Positive", side = 3, outer = TRUE, line = -1, adj = 0.22, cex = .8)mtext("All depths", side=2, cex = .8, line = 1.5)
# Panel 2- All depths, negative network
plot(grph.top300.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.neg),
vertex.color=domain_color_top300_neg)mtext ("Negative", side = 3, outer = TRUE, line = -1, adj = .8, cex = .8)
# Panel 3- Oxycline, positive network
plot(grph.top300.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.pos),
vertex.color=domain_color_top300_oxycline_pos)mtext("Oxycline", side=2, cex = .8, line = 1.5)
# Panel 4- Oxycline, negative network
plot(grph.top300.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.neg),
vertex.color=domain_color_top300_oxycline_neg)# Panel 5- Anoxic, positive network
plot(grph.top300.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.pos),
vertex.color=domain_color_top300_anoxic_pos)
mtext("Anoxic", side=2, cex = .8, line = 1.5)# Panel 6- Anoxic, negative network
plot(grph.top300.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.neg),
vertex.color=domain_color_top300_anoxic_neg)
# Add legend
par(op) # Leave the last plotop <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(.15,-0.04, c("Archaea","Bacteria", "Eukarya", "No Blast Hit"), col=c("red", "green", "blue", "grey"), pch = c(16), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3))
# Save figure
# Set up EPS and make plot
setEPS(width = 6, height = 7)
postscript("Figures/Networks_pos_neg_all_oxycline_anox_Nov21.eps")
# Set up in panels
op <- par(oma=c(2,.5,.5,0),# Room for the titles and legend
mfrow=c(3,2),
mai=c(.15,.3,.15,.1))
# Panel 1- All depths, positive network
plot(grph.top300.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.pos),
vertex.color=domain_color_top300_pos)mtext ("Positive", side = 3, outer = TRUE, line = -1, adj = 0.22, cex = .8)
mtext("All depths", side=2, cex = .8, line = 1.5)
# Panel 2- All depths, negative network
plot(grph.top300.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.neg),
vertex.color=domain_color_top300_neg)
mtext ("Negative", side = 3, outer = TRUE, line = -1, adj = .8, cex = .8)
# Panel 3- Oxycline, positive network
plot(grph.top300.oxycline.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.pos),
vertex.color=domain_color_top300_oxycline_pos)mtext("Oxycline", side=2, cex = .8, line = 1.5)
# Panel 4- Oxycline, negative network
plot(grph.top300.oxycline.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.oxycline.neg),
vertex.color=domain_color_top300_oxycline_neg)
# Panel 5- Anoxic, positive network
plot(grph.top300.anoxic.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.pos),
vertex.color=domain_color_top300_anoxic_pos)mtext("Anoxic", side=2, cex = .8, line = 1.5)
# Panel 6- Anoxic, negative network
plot(grph.top300.anoxic.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.anoxic.neg),
vertex.color=domain_color_top300_anoxic_neg)
# Add legend
par(op) # Leave the last plot
op <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(.15,-0.04, c("Archaea","Bacteria", "Eukarya", "No Blast Hit"), col=c("red", "green", "blue", "grey"), pch = c(16), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3))
dev.off()quartz_off_screen
2 
Second- No euks, no parasites, no nonparasites
# Set up in panels
op <- par(oma=c(2,.5,.5,0),# Room for the titles and legend
mfrow=c(3,2),
mai=c(.15,.3,.15,.1))
# Panel 1- Euks removed, positive network
plot(grph.top300.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.pos),
vertex.color=domain_color_2domains_top300_pos)
mtext ("Positive", side = 3, outer = TRUE, line = -1, adj = 0.22, cex = .8)mtext("Eukaryotes removed", side=2, cex = .8, line = 1.5)
# Panel 2- Euks, negative network
plot(grph.top300.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.neg),
vertex.color=domain_color_2domains_top300_neg)mtext ("Negative", side = 3, outer = TRUE, line = -1, adj = .8, cex = .8)
# Panel 3- Parasites removed, positive network
plot(grph.top300.nonparasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.pos),
vertex.color=domain_color_top300_nonparasites_pos)mtext("Parasites Removed", side=2, cex = .8, line = 1.5)
# Panel 4- Parasites removed, negative network
plot(grph.top300.nonparasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.neg),
vertex.color=domain_color_top300_nonparasites_neg)# Panel 5- Nonparasites removed, positive network
plot(grph.top300.parasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.pos),
vertex.color=domain_color_top300_parasites_pos)
mtext("Nonparasites Removed", side=2, cex = .8, line = 1.5)# Panel 6- Nonparasites removed, negative network
plot(grph.top300.parasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.neg),
vertex.color=domain_color_top300_parasites_neg)
# Add legend
par(op) # Leave the last plotop <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(.15,-0.04, c("Archaea","Bacteria", "Eukarya", "No Blast Hit"), col=c("red", "green", "blue", "grey"), pch = c(16), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3))
# Save figure
# Set up EPS and make plot
setEPS(width = 6, height = 7)
postscript("Figures/Networks_pos_neg_noeuks_noparasites_nononparasites_Nov21.eps")
# Set up in panels
op <- par(oma=c(2,.5,.5,0),# Room for the titles and legend
mfrow=c(3,2),
mai=c(.15,.3,.15,.1))
# Panel 1- Euks removed, positive network
plot(grph.top300.2domains.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.pos),
vertex.color=domain_color_2domains_top300_pos)mtext ("Positive", side = 3, outer = TRUE, line = -1, adj = 0.22, cex = .8)
mtext("Eukaryotes removed", side=2, cex = .8, line = 1.5)
# Panel 2- Euks, negative network
plot(grph.top300.2domains.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.2domains.neg),
vertex.color=domain_color_2domains_top300_neg)
mtext ("Negative", side = 3, outer = TRUE, line = -1, adj = .8, cex = .8)
# Panel 3- Parasites removed, positive network
plot(grph.top300.nonparasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.pos),
vertex.color=domain_color_top300_nonparasites_pos)mtext("Parasites Removed", side=2, cex = .8, line = 1.5)
# Panel 4- Parasites removed, negative network
plot(grph.top300.nonparasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.nonparasites.neg),
vertex.color=domain_color_top300_nonparasites_neg)
# Panel 5- Nonparasites removed, positive network
plot(grph.top300.parasites.pos,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.pos),
vertex.color=domain_color_top300_parasites_pos)mtext("Nonparasites Removed", side=2, cex = .8, line = 1.5)
# Panel 6- Nonparasites removed, negative network
plot(grph.top300.parasites.neg,
vertex.label=NA,
layout=layout_with_graphopt(grph.top300.parasites.neg),
vertex.color=domain_color_top300_parasites_neg)
# Add legend
par(op) # Leave the last plot
op <- par(usr=c(0,1,0,1), # Reset the coordinates
xpd=NA) # Allow plotting outside the plot region
legend(.15,-0.04, c("Archaea","Bacteria", "Eukarya", "No Blast Hit"), col=c("red", "green", "blue", "grey"), pch = c(16), box.col=NA, cex = .8, horiz = T, x.intersp = c(0.3))
dev.off()quartz_off_screen
2 
Collect network parameters
From newly made graphs that control for network size
Number of edges
# total number of edges in full dataset network of top 300 OTUs/ ASVsThere were 25 warnings (use warnings() to see them)length(E(grph.top300)$weight)[1] 2468# percent of neg edges
(sum(E(grph.top300)$weight<0)/length(E(grph.top300)$weight))*100[1] 33.58995# total number of edges in 2-domain dataset network
length(E(grph.2domains.top300)$weight)[1] 3450# percent of neg edges
(sum(E(grph.2domains.top300)$weight<0)/length(E(grph.2domains.top300)$weight))*100[1] 30.84058# total number of edges in oxycline network
length(E(grph.top300.oxycline)$weight)[1] 1535# percent of neg edges
(sum(E(grph.top300.oxycline)$weight<0)/length(E(grph.top300.oxycline)$weight))*100[1] 39.15309# total number of edges in anoxic network
length(E(grph.top300.anoxic)$weight)[1] 767# percent of neg edges
(sum(E(grph.top300.anoxic)$weight<0)/length(E(grph.top300.anoxic)$weight))*100[1] 32.85528# total number of edges in network with only nonparasite euks
length(E(grph.top300.nonparasites)$weight)[1] 2824# percent of neg edges
(sum(E(grph.top300.nonparasites)$weight<0)/length(E(grph.top300.nonparasites)$weight))*100[1] 35.48159# total number of edges in network with only parasite euks
length(E(grph.top300.parasites)$weight)[1] 2680# percent of neg edges
(sum(E(grph.top300.parasites)$weight<0)/length(E(grph.top300.parasites)$weight))*100[1] 37.83582Edge density
the number of edges relatives to total number of possible edges
edge_density(grph.top300)*100[1] 5.502787edge_density(grph.2domains.top300)*100[1] 7.692308edge_density(grph.top300.oxycline)*100[1] 3.42252edge_density(grph.top300.anoxic)*100[1] 1.710145edge_density(grph.top300.nonparasites)*100[1] 6.296544edge_density(grph.top300.parasites)*100[1] 5.975474Component
The size of the components, or “clumps,” in the network, and how many members in each
# full dataset
components(grph.top300)$no[1] 38components(grph.top300)$csize [1] 233 9 5 1 1 1 1 9 3 1 1 1 1 1 3 1 1
[18] 4 1 1 1 2 1 1 1 1 1 1 3 1 1 1 1 1
[35] 1 1 1 1# 2 domains
components(grph.2domains.top300)$no[1] 21components(grph.2domains.top300)$csize [1] 276 1 1 1 1 1 1 1 2 1 1 1 1 1 3 2 1
[18] 1 1 1 1# oxycline
components(grph.top300.oxycline)$no[1] 23components(grph.top300.oxycline)$csize [1] 274 1 1 1 1 1 1 1 1 1 1 2 2 1 1 1 1
[18] 1 1 3 1 1 1# anoxic
components(grph.top300.anoxic)$no[1] 113components(grph.top300.anoxic)$csize [1] 140 3 1 1 2 10 1 1 1 3 1 1 1 1 1 1
[17] 1 1 1 1 1 1 1 1 1 2 1 1 1 11 1 2
[33] 5 1 1 2 1 2 1 3 1 2 1 1 1 1 1 1
[49] 1 2 1 1 1 1 1 3 1 1 1 1 1 1 1 1
[65] 1 1 1 1 1 6 1 1 1 1 1 2 3 1 1 1
[81] 1 1 2 1 1 2 1 1 1 1 1 1 1 1 1 1
[97] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[113] 1# nonparasites
components(grph.top300.nonparasites)$no[1] 41components(grph.top300.nonparasites)$csize [1] 222 9 5 1 1 10 1 1 1 3 1 1 1 5 1 1 1
[18] 1 5 3 1 1 1 1 1 2 4 1 1 1 1 1 1 1
[35] 1 1 1 2 1 1 1# parasites
components(grph.top300.parasites)$no[1] 40components(grph.top300.parasites)$csize [1] 257 4 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1
[18] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[35] 1 1 1 1 1 1The anoxic network is most disjointed, with 48 clumps and the largest containing only 24 members. The next is oxycline, with 32 clumps and the largest with 144 members. Then the full dataset has only 27 clumps and the largest clump contains 262 members.
Average path length
Path is the shortest distance between two nodes (fewest number of edges). Average path length of a network gives a sense of how connected every node is to another. Unconnected hubs in the netowrk will have “infinite” paths from other hubs. The function mean_distance ignores the infinite edges and calculates the average of all other edges
mean_distance(grph.top300)[1] 3.137986mean_distance(grph.2domains.top300)[1] 3.254222mean_distance(grph.top300.oxycline)[1] 4.148024mean_distance(grph.top300.anoxic)[1] 5.327126mean_distance(grph.top300.nonparasites)[1] 2.846042mean_distance(grph.top300.parasites)[1] 4.645595Which ASVs are in positive vs negative networks?
# Positive network- full dataset
grph.pos_df <- igraph::as_data_frame(grph.top300.pos, 'both')
grph.pos_df_vert <- grph.pos_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.pos_df_vert$"taxonomy-5"))# 25 Dino-Group-II
# 1 Dino-Group-I
# 28 Spumellarida
# Negative network- full dataset
grph.neg_df <- igraph::as_data_frame(grph.top300.neg, 'both')
grph.neg_df_vert <- grph.neg_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.neg_df_vert$"taxonomy-5"))# 8 Dino-Group-II
# 1 Dino-Group-I
# 7 Spumellarida
# Positive network- oxycline
grph.pos_df <- igraph::as_data_frame(grph.top300.oxycline.pos, 'both')
grph.pos_df_vert <- grph.pos_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.pos_df_vert$"taxonomy-5"))# 46 Dino-Group-II
# 5 Dino-Group-I
# 30 Spumellarida
# Negative network- oxycline
grph.neg_df <- igraph::as_data_frame(grph.top300.oxycline.neg, 'both')
grph.neg_df_vert <- grph.neg_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.neg_df_vert$"taxonomy-5"))# 37 Dino-Group-II
# 4 Dino-Group-I
# 17 Spumellarida
# Positive network- anoxic
grph.pos_df <- igraph::as_data_frame(grph.top300.anoxic.pos, 'both')
grph.pos_df_vert <- grph.pos_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.pos_df_vert$"taxonomy-5"))# 7 Dino-Group-II
# 0 Dino-Group-I
# 15 Spumellarida
# Negative network- anoxic
grph.neg_df <- igraph::as_data_frame(grph.top300.anoxic.neg, 'both')
grph.neg_df_vert <- grph.neg_df$vertices
# How many Syndiniales and Polycystinea?
as.data.frame(table(grph.neg_df_vert$"taxonomy-5"))# 1 Dino-Group-II
# 0 Dino-Group-I
# 2 Spumellarida
What are the interestined eukaryotic groups connected to?
# Negative associations: Syndiniales
grph.neg_df_vert_synd <- filter(grph.neg_df_vert, `taxonomy-4` == "Syndiniales")
grph.neg_synd_edges <- E(grph.neg)[from(grph.neg_df_vert_synd$name)]
grph.neg.synd_subgraph <- subgraph.edges(grph.neg, grph.neg_synd_edges)
grph.neg_df_vert %>%
filter(`name` %in% V(grph.neg.synd_subgraph)$name & !`taxonomy-4` %in% c("Syndiniales")) %>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)
# Negative associations: Spumellarida
grph.neg_df_vert_spum <- filter(grph.neg_df_vert, `taxonomy-5` == "Spumellarida")
grph.neg_spum_edges <- E(grph.neg)[from(grph.neg_df_vert_spum$name)]
grph.neg.spum_subgraph <- subgraph.edges(grph.neg, grph.neg_spum_edges)
grph.neg_df_vert %>%
filter(`name` %in% V(grph.neg.spum_subgraph)$name & !`taxonomy-5` %in% c("Spumellarida")) %>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)
# Also ckeck out Cariacotrichea to hypothesize about possible symbiosis partners
# Positive associations only
grph.pos_df_vert_cari <- filter(grph.pos_df_vert, `taxonomy-4` == "Cariacotrichea")
grph.pos_cari_edges <- E(grph.pos)[from(grph.pos_df_vert_cari$name)]
grph.pos.cari_subgraph <- subgraph.edges(grph.pos, grph.pos_cari_edges)
grph.pos_df_vert %>%
filter(`name` %in% V(grph.pos.cari_subgraph)$name & !`taxonomy-4` %in% c("Cariacotrichea"))%>%
count(`taxonomy-2`,`taxonomy-3`,`taxonomy-4`,`taxonomy-5`, name = "count", sort = TRUE)Analyze node-level measures for keystone-ness
Calculate 4 parameters for each individual node:
- degree (de) = number of edges connected to the node
- strength (st) = sum of the weights of all the edges connected to the node
- betweenness centrality (be) = the number of shortest paths (between all other nodes) that go through the node
- closeness centrality (cc) = average distance (number of edges) of the node to any other node
- local clustering coefficient (l.cluster) , aka transitivity = the proportion of two nodes that are connected by a third node, of being connected to each other (eg. how many of a node’s “friends” know each other?)
# First change the weights of the edges (the strength of association) to absolute value. This won't work if negative edge weights are left with the negative signs
E(grph.top300)$weight <- abs(E(grph.top300)$weight)
# calculate parameters
names=V(grph.top300)$name
de=degree(grph.top300)
st=graph.strength(grph.top300)
be=betweenness(grph.top300, normalized=T)
cc = closeness(grph.top300)At centrality.c:2617 :closeness centrality is not well-defined for disconnected graphsl.cluster=transitivity(grph.top300, "local")
# assemble dataset and match full taxonomy
fulldateset_node_measures <- data.frame(ID=names, degree=de, strength=st, betweenness=be, closeness = cc, clustering_coefficient = l.cluster)
# Put back bac taxaonomy
temp1 <- left_join(fulldateset_node_measures[1:dim(otu_table(ps_bac_pruned_3domains_top100))[1],], bac_taxonomy, by = c("ID" = "#OTU ID"))
# delete "Taxonomy-9" and "refined Taxonomy" columns
temp1 <- select(temp1, -"taxonomy-9", -"Refined taxonomy")
temp2 <- left_join(fulldateset_node_measures[sum(dim(otu_table(ps_bac_pruned_3domains_top100))[1],1):sum(dim(otu_table(ps_bac_pruned_3domains_top100))[1],dim(otu_table(ps_arch_pruned_3domains_top100))[1]),], arch_taxonomy, by = c("ID" = "#OTU ID"))
temp3 <- left_join(fulldateset_node_measures[sum(dim(otu_table(ps_arch_pruned_3domains_top100))[1], dim(otu_table(ps_bac_pruned_3domains_top100))[1],1):sum(dim(otu_table(ps_arch_pruned_3domains_top100))[1], dim(otu_table(ps_bac_pruned_3domains_top100))[1],dim(otu_table(ps_euk_pruned_3domains_top100))[1]),], euk_taxonomy, by = c("ID" = "#ASV ID"))
# Rename col names to match those from Bac and Arch
temp3 <- temp3 %>%
rename("taxonomy-1" = Kingdom, "taxonomy-2" = Supergroup, "taxonomy-3" = Division, "taxonomy-4" = Class, "taxonomy-5" = Order, "taxonomy-6" = Family, "taxonomy-7" = Genus, "taxonomy-8" = Species)
# combine back all 3 domains, with new names as row names in a dataframe
fulldateset_node_measures <- rbind(temp1, temp2, temp3)
fulldateset_node_measuresPlot betweeness vs degree for each node. - Tipton et al. argue that nodes with high betweenness are “bottlenecks” or important connectors and nodes with high degree are “hubs” - Berry et al. argue that nodes with low betweenness, high degree, high closeness, and high transitivity are candidate keystone species - Add in closeness into the node’s plotly label since these don’t vary much node-to-node and wouldn’t make sense to plot
# replace NA in taxonomy with unidentified
# remove nodes with 0 betweenness (can't calculate log10 of 0)
# replace NaN clustering coefs with 0
fulldateset_node_measures <- fulldateset_node_measures %>%
replace(is.na(.), "unidentified") %>%
filter(!betweenness == 0)
# get enough colors and randomly rearrange so they are easier to separate on the plot
mycolors <- colorRampPalette(brewer.pal(12, "Paired"))(length(unique(fulldateset_node_measures$`taxonomy-3`)))
set.seed(123)
mycolors <- sample(mycolors)
# plot with plotly and so I can hover over points and determine which taxa they are
p <- ggplot(fulldateset_node_measures, aes(x = degree, y = betweenness, ID = ID, shape = `taxonomy-1`, `taxonomy-2` = `taxonomy-2`, color = `taxonomy-3`, `taxonomy-4` = `taxonomy-4`, `taxonomy-5` = `taxonomy-5`)) +
geom_point(size = 4) +
scale_y_continuous(trans='log10') +
scale_color_manual(values = mycolors) +
theme(legend.title = element_blank()) +
theme_bw()
p
ggplotly(p, tooltip = c("ID","taxonomy-2", "taxonomy-3", "taxonomy-4", "taxonomy-5"))NAMake static figure for manuscript
There were 26 warnings (use warnings() to see them)p2 <- ggplot(fulldateset_node_measures, aes(x = degree, y = betweenness, shape = `taxonomy-1`, color = `taxonomy-3`)) +
geom_point(size = 4) +
scale_y_continuous(trans='log10') +
scale_color_manual(values = mycolors, name = "") +
scale_shape_manual(values = c(19,17,15,18), name = "") +
theme(legend.title=element_blank(),
axis.text = element_text(size=8),
axis.text.x = element_text(size=8, angle = 45, hjust = 1),
axis.title = element_text(size=8),
legend.text = element_text(size=8),
strip.text = element_text(size = 8),
legend.margin=margin(0,0,0,2),
legend.box.margin=margin(-10,-10,-10,-10),
plot.margin=grid::unit(c(0,0,0,0), "mm")) +
theme_bw() How many edges does each group have as an aggregate
# extract degree from graph and make into dataframe
de_df <- as.data.frame(de)
de_df$name <- rownames(de_df)
de_df <- left_join(de_df, all_temp, by = "name")
de_df %>%
group_by(`taxonomy-1`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-2`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-3`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-4`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))
de_df %>%
group_by(`taxonomy-5`) %>%
summarise(degreesum = sum(de)) %>%
arrange(desc(degreesum))NAReport some mean abundances
To include in main text
LS0tCnRpdGxlOiAiRWNvbG9naWNhbGwgQW5hbHlzaXMgb2YgQ2FyaWFjbyBFdWthcnlvdGljIDE4UyBsaWJyYXJpZXMiCmF1dGhvcjogIkxpeiBTdXRlciIKZGF0ZTogIlN0YXJ0ZWQgNS8yNi8yMDIwOyBDb21wbGV0ZWQgc3VtbWVyIDIwMjE7IFJldmlzaW9ucyBhZGRlZCBPY3QtTm92IDIwMjEiCm91dHB1dDogaHRtbF9ub3RlYm9vawplZGl0b3Jfb3B0aW9uczogCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGlubGluZQotLS0KCiMgTG9hZCBsaWJyYXJpZXMKCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShwaHlsb3NlcSkKbGlicmFyeShwaGFuZ29ybikKbGlicmFyeShyZWFkcikKbGlicmFyeShhcGUpCmxpYnJhcnkodmVnYW4pCmxpYnJhcnkoUkNvbG9yQnJld2VyKQpsaWJyYXJ5KG1pY3JvYmlvbWUpCmxpYnJhcnkoY29tcG9zaXRpb25zKQpsaWJyYXJ5KFNwaWVjRWFzaSkKbGlicmFyeShvdHVTdW1tYXJ5KQpsaWJyYXJ5KHBzeWNoKQpsaWJyYXJ5KE1hdHJpeCkKbGlicmFyeShpZ3JhcGgpCmxpYnJhcnkocGxvdGx5KQpsaWJyYXJ5KGVnZykKbGlicmFyeShnZ3ZlZ2FuKQoKIyBSZXBvcnQgdmVyc2lvbnMgb2YgcGFja2FnZXMKc2Vzc2lvbkluZm8oKQpgYGAKCi0gTm90ZSBmb3IgU3BpZWNFYXNpLCBpbnN0YWxsYXRpb24gaW5zdHJ1Y3Rpb25zIGFyZSBbaGVyZV0oaHR0cHM6Ly9naXRodWIuY29tL3pkazEyMy9TcGllY0Vhc2kpLiBPbiBNYWMsIHRoZXJlIGFyZSBpc3N1ZXMgd2l0aCBhIGRlcGVuZGVuY3kgd2hpY2ggSSBhbHNvIGhhZCB0byB1cGRhdGUgdXNpbmcgdGhlc2UgW2luc3RydWN0aW9uc10oaHR0cHM6Ly90aGVjb2F0bGVzc3Byb2Zlc3Nvci5jb20vcHJvZ3JhbW1pbmcvY3BwL3ItY29tcGlsZXItdG9vbHMtZm9yLXJjcHAtb24tbWFjb3MvKQoKCiMgUHJlcGFyZSB0aGUgZGF0YQoKIyMgSW1wb3J0IAoKTWV0YWRhdGE6CmBgYHtyfQptZXRhZGF0YSA8LSByZWFkX2NzdigiTWV0YWRhdGEuY3N2IikKYGBgCgpJbXBvcnQgU1JBIHRhYmxlIGFuZCBtYXRjaCBTUkEgSURzIHdpdGggc2FtcGxlIElEcyBpbiBtZXRhZGF0YSBmaWxlCmBgYHtyfQpTUkFSdW5UYWJsZSA8LSByZWFkX2Nzdigic3JhX2RhdGEvU3JhUnVuVGFibGUudHh0IikKbWV0YWRhdGEgPC0gbGVmdF9qb2luKG1ldGFkYXRhLCBTUkFSdW5UYWJsZSwgYnkgPSAnU2FtcGxlIE5hbWUnKQpgYGAKCgoKREFEQTIgcmVzdWx0czoKYGBge3J9CiMgSW1wb3J0IENvdW50IHRhYmxlLiBTa2lwIGZpcnN0IHJvdyBvZiB0c3YgZmlsZSwgd2hpY2ggaXMganVzdCBzb21lIHRleHQKY291bnRfdGFibGUgPC0gcmVhZF90c3YoZmlsZT0iZGFkYTJfZXhwb3J0L0FTVnNfY291bnRzLnRzdiIpCiMgQW5kIHNwZWNpZnkgdGhhdCB0aGUgZmlyc3QgY29sdW1uIG9mIGRhdGEgYXJlIHJvd25hbWVzCmNvdW50X3RhYmxlIDwtIGNvbHVtbl90b19yb3duYW1lcyhjb3VudF90YWJsZSwgdmFyID0gY29sbmFtZXMoY291bnRfdGFibGUpWzFdKQoKIyBJbXBvcnQgdGF4b25vbXkgb2YgQVNWcwp0YXhvbm9teSA8LSByZWFkX3RzdihmaWxlPSJkYWRhMl9leHBvcnQvQVNWc190YXhvbm9teS50c3YiKQojIEFuZCBzcGVjaWZ5IHRoYXQgdGhlIGZpcnN0IGNvbHVtbiBvZiBkYXRhIGFyZSByb3duYW1lcwp0YXhvbm9teSA8LSBjb2x1bW5fdG9fcm93bmFtZXModGF4b25vbXksIHZhciA9IGNvbG5hbWVzKHRheG9ub215KVsxXSkKYGBgCgoKIyMgUUMgYW5kIEZpbHRlcmluZwoKIyMjIFJhcmVmYWN0aW9uIGN1cnZlcwoKYGBge3J9CiMgVXNlIHJhcmVjdXJ2ZSwgZnJvbSB0aGUgVmVnYW4gcGFja2FnZS4gUmFyY3VydmUgZXhwZWN0cyB0aGUgZGF0YXNldCBhcyBhIGRhdGFmcmFtZSBzbyB3ZSBuZWVkIHRvIHVzZSBhcy5kYXRhLmZyYW1lIGFnYWluOgpjb3VudF90YWJsZV9kZiA8LSBhcy5kYXRhLmZyYW1lKGNvdW50X3RhYmxlKQoKIyBQbG90IHRoZSByYXJlZmFjdGlvbiBjdXJ2ZXMsIGNvbG9yLWNvZGluZyBieSB0aGUgY29sb3JzIGxpc3RlZCBpbiBzYW1wbGVfaW5mb190YWIsIHdoaWNoIGluZGljYXRlIHNhbXBsZSB0eXBlLCBhbmQgdHJhbnNmb3JtaW5nIHVzaW5nIHQoKSBhZ2FpbgojIFJ1bm5pbmcgdGhpcyA1LTEwIHNhbXBsZXMgYXQgYSB0aW1lIGJlY2F1c2Ugb3RoZXJ3aXNlIGl0IHRha2VzIGEgbG9uZyB0aW1lIHRvIHJlbmRlcgpyYXJlY3VydmUodChjb3VudF90YWJsZV9kZiksIHN0ZXA9MTAwLCBjZXg9MC41LCB5bGFiPSJBU1ZzIiwgbGFiZWw9VCkKYGBgCgoKIyMjIFJlbW92ZSBzaW5nbGV0b25zCgpgYGB7cn0KY291bnRfdGFibGVfbm9fc2luZ2xldG9ucyA8LSBmaWx0ZXIoY291bnRfdGFibGUscm93U3Vtcyhjb3VudF90YWJsZSk+MSkKIyByZXRhaW5zIGFsbCBBU1ZzIChvdXQgb2YgMTQxNzYpCmBgYAoKYW5kIGNoYW5nZSBzYW1wbGUgbmFtZXMgZnJvbSBOQ0JJIElEIHRvIG91ciBpbnRlcm5hbCBzYW1wbGUgSURzCmBgYHtyfQojIE1vZGlmeSB0YXhhIG5hbWVzIGluIGNvdW50X3RhYmxlX25vX3NpbmdsZXRvbnMsIHdoaWNoIGFyZSB0aGUgTkNCSSBTUkEgbnVtYmVycy4gV2FudCB0byB1c2Ugb3VyIGludGVybmFsIHNhbXBsZSBrZXkKa2V5IDwtIFNSQVJ1blRhYmxlICU+JSBzZWxlY3QoUnVuLCAnU2FtcGxlIE5hbWUnKQoKeCA8LSAodChjb3VudF90YWJsZV9ub19zaW5nbGV0b25zKSkKeCA8LSBhcy5kYXRhLmZyYW1lKGNiaW5kKHgsIFJ1biA9IHJvd25hbWVzKHgpKSkKCnkgPC0gdChsZWZ0X2pvaW4oeCwga2V5LCBieSA9ICJSdW4iKSkKY29sbmFtZXMoeSkgPC0geVsnU2FtcGxlIE5hbWUnLF0KeSA8LSB5WyAhKHJvd25hbWVzKHkpICVpbiUgYygnU2FtcGxlIE5hbWUnLCAnUnVuJykpLCBdCgpjb3VudF90YWJsZV8yIDwtIHR5cGVfY29udmVydChhcy5kYXRhLmZyYW1lKHkpKQpgYGAKCiMjIyBNYWtlIFBoeWxvIFRyZWUgIApUaGlzIHByb2Nlc3MgdGFrZXMgYSBMT05HIHRpbWUgc28gcnVuIG9uY2UgYW5kIHNhdmUgLlJEYXRhIG9iamVjdApJbiB0aGUgRGFkYTIgdG9vbHMsIHRoZXJlIGFyZSBubyBvcHRpb25zIHRvIGJ1aWxkIGEgdHJlZSAodW5saWtlIGluIFFpaW1lMikgYnV0IHdlIGNhbiBidWlsZCBpdCBoZXJlIHVzaW5nIERFQ0lQSEVSIGFuZCBwaGFuZ29ybgoKKEJhc2VkIG9uIFtodHRwczovL2YxMDAwcmVzZWFyY2guY29tL2FydGljbGVzLzUtMTQ5Mi92Ml0oaHR0cHM6Ly9mMTAwMHJlc2VhcmNoLmNvbS9hcnRpY2xlcy81LTE0OTIvdjIpKQoKCk1ha2UgYW4gYWxpZ25tZW50IHVzaW5nIHRvb2xzIGZyb20gRGVjaXBoZXIgKE5vdGUtIGFsaWdubWVudCBzdGVwIHRha2VzIHNldmVyYWwgaG91cnMuIENvbW1lbnRlZCBvdXQgZm9yIG5vdy4gT25seSBuZWVkIHRvIHJ1biBvbmNlKSAKYGBge3J9CiMjIGltcG9ydCBmYXN0YQojIGZhcyA8LSAiZGFkYTJfZXhwb3J0L0FTVnMuZmEiCiMgc2VxcyA8LSByZWFkRE5BU3RyaW5nU2V0KGZhcykKIyBzZXFzCiMgCiMgIyBwZXJmb3JtIHRoZSBhbGlnbm1lbnQKIyBhbGlnbmVkIDwtIEFsaWduU2VxcyhzZXFzKSAjIGF1dG9tYXRpY2FsbHkgZGV0ZWN0cyBhbmQgdXNlcyBhbGwgY29yZXMKIyAKIyAjIHZpZXcgdGhlIGFsaWdubWVudCBpbiBhIGJyb3dzZXIgKG9wdGlvbmFsKQojIEJyb3dzZVNlcXMoYWxpZ25lZCwgaGlnaGxpZ2h0PTApCiMgCiMgIyB3cml0ZSBvdXQgYWxpZ25lZCBzZXF1ZW5jZSBmaWxlCiMgd3JpdGVYU3RyaW5nU2V0KGFsaWduZWQsIGZpbGU9IkFTVnMuYWxpZ25lZC5mYXN0YSIpCmBgYAoKClVzZSBwaGFuZ29ybiBwYWNrYWdlIHRvIGJ1aWxkIHRyZWUuIEhlcmUgd2UgYXJlIGJ1aWxkaW5nIGEgbWF4aW11bSBsaWtlbGlob29kIG5laWdoYm9yLWpvaW5pbmcgdHJlZS4gKEFsc28gdGFrZXMgYSB3aGlsZSB0byBydW4uIENvbW1lbnQgb3V0IGZvciBub3cuKQoKYGBge3J9CiMgcGhhbmcuYWxpZ24gPC0gcGh5RGF0KGFzKGFsaWduZWQsICJtYXRyaXgiKSwgdHlwZT0iRE5BIikgIyBjb252ZXJ0IHRvIHBoeURhdCBmb3JtYXQKIyBkbSA8LSBkaXN0Lm1sKHBoYW5nLmFsaWduKSAjIGNhbGN1bGF0ZSBwYWlyd2lzZSBkaXN0YW5jZSBtYXRyaXgKIyB0cmVlTkogPC0gTkooZG0pICMgcGVyZm9ybSBuZWlnaGJvci1qb2luaW5nIHRyZWUgbWV0aG9kCiMgZml0ID0gcG1sKHRyZWVOSiwgZGF0YT1waGFuZy5hbGlnbikgIyBjb21wdXRlIGludGVybWFsIG1heCBsaWtlbGlob29kCmBgYAoKIyMjIyBTYXZlIGFuZCByZS1sb2FkIGRhdGFzZXQKU2luY2UgdGhlIHN0ZXAgYWJvdmUgdGFrZXMgYSBsb25nIHRpbWUsIHNhdmUgYWxsIHZhcmlhYmxlcyB1cCB0byB0aGlzIHBvaW50IGluIGVudmlyb25tZW50IGFzIFJEYXRhIG9iamVjdApgYGB7cn0KIyBzYXZlLmltYWdlKCJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcG9zdGFuYWx5c2lzX3ZhcnNfdXB0b190cmVlLlJEYXRhIikKYGBgCgpSZS1sb2FkCmBgYHtyfQpsb2FkKCJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcG9zdGFuYWx5c2lzX3ZhcnNfdXB0b190cmVlLlJEYXRhIikKYGBgCgoKIyMjIE1ha2UgcGh5bG9zZXEgb2JqZWN0cwoKSGVyZSB3ZSB3aWxsIGRvIG9yZGluYXRpb25zIHVzaW5nIHRoZSBwaHlsb3NlcSBwYWNrYWdlLCB3aGljaCBmaXJzdCByZXF1aXJlcyBtYWtpbmcgcGh5bG9zZXEgb2JqZWN0cyBvdXQgb2YgZWFjaCBvZiBvdXIgaW5wdXQgZGF0YSB0YWJsZXMgKGluIHRoZSBsYXN0IHR1dG9yaWFsLCBJIGltcG9ydGVkIHRoZSB0cmVlIHVzaW5nIHBoeWxvc2VxIHNvIGl0IGlzIGFscmVhZHkgYSBwaHlsb3NlcSBvYmplY3QpCgpgYGB7cn0KQVNWCT0Jb3R1X3RhYmxlKGNvdW50X3RhYmxlXzIsIHRheGFfYXJlX3Jvd3MgPSAgVFJVRSkKVEFYCT0JdGF4X3RhYmxlKGFzLm1hdHJpeCh0YXhvbm9teSkpCk1FVEEJPQlzYW1wbGVfZGF0YShkYXRhLmZyYW1lKG1ldGFkYXRhLCByb3cubmFtZXMgPSBtZXRhZGF0YSRgU2FtcGxlIE5hbWVgKSkKVFJFRSA9IHBoeV90cmVlKGZpdCR0cmVlKQpgYGAKCgoKRmlyc3QgY2hlY2sgdGhhdCB0aGUgaW5wdXRzIGFyZSBpbiBjb21wYXRpYmxlIGZvcm1hdHMgYnkgY2hlY2tpbmcgZm9yIEFTViBuYW1lcyB3aXRoIHRoZSBwaHlsb3NlcSBmdW5jdGlvbiwgdGF4YV9uYW1lcwpgYGB7cn0KaGVhZCh0YXhhX25hbWVzKFRBWCkpCmhlYWQodGF4YV9uYW1lcyhBU1YpKQpoZWFkKHRheGFfbmFtZXMoVFJFRSkpCmBgYAoKCkFuZCBjaGVjayBzYW1wbGUgbmFtZXMgd2VyZSBhbHNvIGRldGVjdGVkCmBgYHtyfQpoZWFkKHNhbXBsZV9uYW1lcyhBU1YpKQpoZWFkKHNhbXBsZV9uYW1lcyhNRVRBKSkKYGBgCgpBbmQgbWFrZSB0aGUgcGh5bG9zZXEgb2JqZWN0CmBgYHtyfQpwcyA8LSBwaHlsb3NlcShBU1YsCVRBWCwJTUVUQSAsIFRSRUUpCmBgYAoKCgpDaGVjayBzb21lIGZlYXR1cmVzIG9mIHRoZSBwaHlsb3NlcSBvYmplY3QKYGBge3J9CnJhbmtfbmFtZXMocHMpCnRhYmxlKHRheF90YWJsZShwcylbLCAiU3VwZXJncm91cCJdLCBleGNsdWRlID0gTlVMTCkKdW5pcXVlKHRheF90YWJsZShwcylbLCAiU3VwZXJncm91cCJdKQpgYGAKCgpGaWx0ZXIgb3V0IHRob3NlIGFtYmlnaW91cyBTdXBlcmdyb3VwIGFubm90YXRpb25zLSBsb3NpbmcgNDcxIEFTVnMKYGBge3J9CnBzIDwtIHN1YnNldF90YXhhKHBzLCAhaXMubmEoU3VwZXJncm91cCkgJiAhU3VwZXJncm91cCAlaW4lIGMoIiIsICJOQSIpKQp0YWJsZSh0YXhfdGFibGUocHMpWywgIlN1cGVyZ3JvdXAiXSwgZXhjbHVkZSA9IE5VTEwpCmBgYAoKQ2hlY2sgb3V0IHRoZSBEaXZpc2lvbiBuYW1lcwpgYGB7cn0KdGFibGUodGF4X3RhYmxlKHBzKVssICJEaXZpc2lvbiJdLCBleGNsdWRlID0gTlVMTCkKYGBgCgoKRmlsdGVyIG91dCBhbnkgd2l0aCAiTkEiIGFzIERpdmlzaW9uIApgYGB7cn0KcHMgPC0gc3Vic2V0X3RheGEocHMsICFpcy5uYShEaXZpc2lvbikgJiAhRGl2aXNpb24gJWluJSBjKCIiKSkKdGFibGUodGF4X3RhYmxlKHBzKVssICJEaXZpc2lvbiJdLCBleGNsdWRlID0gTlVMTCkKYGBgCkFmdGVyIHRoZSBhYm92ZSwgMTMsNDI3IEFTVnMgcmVtYWluIGZyb20gdGhlIG9yaWdpbmFsIDE0LDE3NwoKCkVsaW1pbmF0ZSB0aGUgbGlicmFyaWVzIHRoYXQgZGlkbid0IGhhdmUgbWFueSBzZXF1ZW5jZXMsIEFFM2ExOThBLCBBRTNiMzE0QSwgQUUyYTIwMEEsIEFFMmI5MDBBTiwgQUUyYTIwMEIsIEFFMmEyNjdCLCBBRTJhOTAwQk4KYGBge3J9CnRheGFfdG9fa2VlcCA8LSAhc2FtcGxlX25hbWVzKHBzKSAlaW4lIGMoIkFFM2ExOThBIiwiQUUzYjMxNEEiLCJBRTJhMjAwQSIsIkFFMmI5MDBBTiIsIkFFMmEyMDBCIiwiQUUyYTI2N0IiLCJBRTJhOTAwQk4iKQpwcyA8LSBwcnVuZV9zYW1wbGVzKHRheGFfdG9fa2VlcCwgcHMpCmBgYAo0MSBzYW1wbGVzIHJlbWFpbiBhbmQgc3RpbCAxMyw0MjcgQVNWcwoKCgpDaGVjayByYXJlZmFjdGlvbiBjdXJ2ZSBhZ2FpbiB0byBtYWtlIHN1cmUgdGhvc2UgbG93LXNxZXVlbmNpbmctZWZmb3J0IHNhbXBsZXMgaGF2ZSBiZWVuIHJlbW92ZWQKYGBge3J9CnJhcmVjdXJ2ZSh0KG90dV90YWJsZShwcykpLCBzdGVwPTEwMCwgY2V4PTAuNSwgeWxhYj0iQVNWcyIsIGxhYmVsPVQpCmBgYAoKCgojIyMgUmUtcm9vdCB0cmVlIApIYXZlIHRvIGRvIHRoaXMgYmVjYXVzZSB5b3UgbWF5IGhhdmUgcmVtb3ZlZCB0aGUgcm9vdCBvZiB5b3VyIHRyZWUgd2hlbiBwcnVuaW5nKS4gCihJIGZvdW5kIHRoaXMgaGFuZHkgZnVuY3Rpb24gZnJvbSBbaGVyZV0oaHR0cHM6Ly9qb2huLXF1ZW5zZW4uY29tL3IvdW5pZnJhYy1hbmQtdHJlZS1yb290cy8pIHdoaWNoIHBpY2tzIHRoZSBsb25nZXN0IGJyYW5jaCB0byByb290IGZyb20pLiAKCmBgYHtyfQojIGZpcnN0IGRlZmluZSBmdW5jdGlvbiBmcm9tIGxpbmsgYWJvdmUgdG8gZmluZCBmdXJ0aGVzdCBvdXRncm91cApwaWNrX25ld19vdXRncm91cCA8LSBmdW5jdGlvbih0cmVlLnVucm9vdGVkKXsKcmVxdWlyZSgibWFncml0dHIiKQpyZXF1aXJlKCJkYXRhLnRhYmxlIikKcmVxdWlyZSgiYXBlIikgIyBhcGU6Ok50aXAKIyB0YWJsaWZ5IHBhcnRzIG9mIHRyZWUgdGhhdCB3ZSBuZWVkLgp0cmVlRFQgPC0gCiAgICAgY2JpbmQoCiAgICAgICAgIGRhdGEudGFibGUodHJlZS51bnJvb3RlZCRlZGdlKSwKICAgICAgICAgZGF0YS50YWJsZShsZW5ndGggPSB0cmVlLnVucm9vdGVkJGVkZ2UubGVuZ3RoKQogICAgIClbMTpOdGlwKHRyZWUudW5yb290ZWQpXSAlPiUgCiBjYmluZChkYXRhLnRhYmxlKGlkID0gdHJlZS51bnJvb3RlZCR0aXAubGFiZWwpKQogIyBUYWtlIHRoZSBsb25nZXN0IHRlcm1pbmFsIGJyYW5jaCBhcyBvdXRncm91cAogbmV3Lm91dGdyb3VwIDwtIHRyZWVEVFt3aGljaC5tYXgobGVuZ3RoKV0kaWQKIHJldHVybihuZXcub3V0Z3JvdXApIH0KCiMgdGhlbiBydW4gb24gbXkgcGh5bG9zZXEgdHJlZQpteS50cmVlIDwtIHBoeV90cmVlKHBzKQpvdXQuZ3JvdXAgPC0gcGlja19uZXdfb3V0Z3JvdXAobXkudHJlZSkKb3V0Lmdyb3VwCgojIFRoZW4gdXNlIHRoaXMgb3V0Z3JvdXAgdG8gcm9vdCB0aGUgdHJlZQpuZXcudHJlZTEgPC0gYXBlOjpyb290KG15LnRyZWUsIG91dGdyb3VwPW91dC5ncm91cCwgcmVzb2x2ZS5yb290PVRSVUUpCgoKcGh5X3RyZWUocHMpIDwtIG5ldy50cmVlMQoKIyBDaGVjayBpZiB0cmVlIGlzIGJpbmFyeSAoZGljaG90b21vdXMgbm90IG11bHRpY2hvdG9tb3VzKQppcy5iaW5hcnkudHJlZShwaHlfdHJlZShwcykpCgojIElmIGZhbHNlLCB3b3VsZCBoYXZlIHRvIHJ1bgojIG5ldy50cmVlMiA8LSBhcGU6Om11bHRpMmRpKG5ldy50cmVlMSkKIyBwaHlfdHJlZShwcykgPC0gbmV3LnRyZWUyCiMgcGh5X3RyZWUocHMpCgoKYGBgCgojIyMgQ2hlY2sgcGh5bGEgdXNpbmcgYmFyIHBsb3RzCgpDaGVjayBvdmVyYWxsIGhvdyB0aGUgcGh5bGEgYXJlIGRpc3RyaWJ1dGVkIGFtb25nIHNhbXBsZXMuIFBoeWxvc2VxIG1ha2VzIHRoaXMgZWFzeQoKYGBge3J9CiMgRmlyc3QgYWdsb21lcmF0ZSB0aGUgQVNWcyBhdCB0aGUgcGh5bHVtIGxldmVsIHVzaW5nIHRoZSBwaHlsb3NlcSBmdW5jdGlvbiwgdGF4X2dsb20KRGl2aXNpb25HbG9tbWVkID0gdGF4X2dsb20ocHMsICJEaXZpc2lvbiIpCgojIFRoZXJlIGFyZSBtYW55IHBoeWxhIGhlcmUsIHNvIGhhdmUgdG8gbWFrZSBhIGN1c3RvbSBjb2xvciBwYWxldHRlIGJ5IGludGVycG9sYXRpbmcgZnJvbSBhbiBleGlzdGluZyBvbmUgaW4gUkNvbG9yQnJld2VyCmNvbG91ckNvdW50ID0gbGVuZ3RoKHRhYmxlKHRheF90YWJsZShwcylbLCAiRGl2aXNpb24iXSwgZXhjbHVkZSA9IE5VTEwpKQpnZXRQYWxldHRlID0gY29sb3JSYW1wUGFsZXR0ZShicmV3ZXIucGFsKDExLCAiU3BlY3RyYWwiKSkKRGl2aXNpb25QYWxldHRlID0gZ2V0UGFsZXR0ZShjb2xvdXJDb3VudCkKCiMgYW5kIHBsb3QKcGxvdF9iYXIoRGl2aXNpb25HbG9tbWVkLCB4ID0gIlNhbXBsZSIsIGZpbGwgPSAiRGl2aXNpb24iKSArIAogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IERpdmlzaW9uUGFsZXR0ZSkKYGBgCgoKClBsb3QgY29tcG9zaXRpb25hbCAocmVsYXRpdmUgYWJ1bmRhbmNlcykgaW5zdGVhZCBvZiBhYnNvbHV0ZSBhYnVuZGFuY2UgdXNpbmcgbWljcm9iaW9tZTo6dHJhbnNmb3JtCgpgYGB7cn0KcHNfcmEgPC0gbWljcm9iaW9tZTo6dHJhbnNmb3JtKHBzLCB0cmFuc2Zvcm0gPSAiY29tcG9zaXRpb25hbCIpCihvdHVfdGFibGUocHNfcmEpKVsxOjUsMTo1XQpgYGAKCgpgYGB7cn0KIyBUaGVuIGFnbG9tZXJhdGUgdGhlIEFTVnMgYXQgdGhlIHBoeWx1bSBsZXZlbCB1c2luZyB0aGUgcGh5bG9zZXEgZnVuY3Rpb24sIHRheF9nbG9tCkRpdmlzaW9uR2xvbW1lZF9SQSA9IHRheF9nbG9tKHBzX3JhLCAiRGl2aXNpb24iKQojIGFuZCBwbG90CkRpdmlzaW9uX2JhcnBsb3QgPC0gcGxvdF9iYXIoRGl2aXNpb25HbG9tbWVkX1JBLCB4ID0gIlNhbXBsZSIsIGZpbGwgPSAiRGl2aXNpb24iKSArIAogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IERpdmlzaW9uUGFsZXR0ZSkgKwogIHRoZW1lKGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMCkpCiAgCgpEaXZpc2lvbl9iYXJwbG90CgojIGV4cG9ydApnZ3NhdmUoIkZpZ3VyZXMvRGl2aXNpb25fYmFycGxvdC5lcHMiLERpdmlzaW9uX2JhcnBsb3QsIHdpZHRoID0gMTUsIGhlaWdodCA9IDUsIHVuaXRzID0gYygiaW4iKSkKYGBgCgpMb3RzIG9mIGRpbm9mbGFnZWxsYXRlcyBhbmQgcmFkaW9sYXJpYS4gTWFrZXMgc2Vuc2UuIEJ1dCB0aGUgYWJvdmUgaXMgdGhlIGRpc3RyaWJ1dGlvbiBmcm9tIGFsbCBzYW1wbGVzLiBOZXh0IG1ha2UgcGxvdHMgdGhhdCBpbmRpY2F0ZSBkaXN0cmlidXRpb25zIGFjcm9zcyBlbnZpcm9ubWVudGFsIGdyYWRpZW50cy4gQ2FsY3VsYXRlIGF2ZXJhZ2VzIGFuZCB1c2UgYnViYmxlIHBsb3RzCgoKCgoKIyMjIENhbGN1bGF0ZSBhdmVyYWdlcyBmcm9tIHJlcGxpY2F0ZXMKR2V0IGF2ZXJhZ2UgcmVsYXRpdmUgYWJ1bmRhbmNlcyBmcm9tIHNhbXBsZSByZXBsaWNhdGVzCmBgYHtyfQoKb3R1X3RhYmxlX21lYW5fcmEgPC0gCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIxMDNBIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTNhMTAzQSIsIkFFM2IxMDNBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjE5OEEiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksIGMoIkFFM2IxOThBIikpLCBuYS5ybSA9IFRSVUUpKSAgJT4lICMgU2FtcGxlIEFFM2ExOThBIHdhcyByZW1vdmVkCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIyMzRBIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTNhMjM0QSIsIkFFM2IyMzRBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjI5NUEiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksIGMoIkFFM2EyOTVBIiwiQUUzYjI5NUEiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCAiMzE0QSIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgYygiQUUzYTMxNEEiKSksIG5hLnJtID0gVFJVRSkpICU+JSAgIyBTYW1wbGUgQUUzYjMxNEEgd2FzIHJlbW92ZWQKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjkwMEFNIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTNhOTAwQU0iLCJBRTFiOTAwQU0iKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCAiMTAzQiIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgYygiQUUzYTEwM0IiLCJBRTNiMTAzQiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIxOThCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTNhMTk4QiIsIkFFM2IxOThCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjIzNEIiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksIGMoIkFFM2EyMzRCIiwiQUUzYjIzNEIiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCAiMjk1QiIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgYygiQUUzYTI5NUIiLCJBRTNiMjk1QiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIzMTRCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTNhMzE0QiIsIkFFM2IzMTRCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjkwMEJNIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTNhOTAwQk0iLCJBRTFiOTAwQk0iKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCAiMTQzQSIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgYygiQUUyYTE0M0EiLCJBRTJiMTQzQSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIyMDBBIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTJiMjAwQSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lICMgQUUyYTIwMEEgd2FzIHJlbW92ZWQKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjIzN0EiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksIGMoIkFFMmEyMzdBIiwiQUUyYjIzN0EiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCAiMjQ3QSIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgYygiQUUyYTI0N0EiLCJBRTJiMjQ3QSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIyNjdBIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTJhMjY3QSIsIkFFMmIyNjdBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjkwMEFOIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTJhOTAwQU4iKSksIG5hLnJtID0gVFJVRSkpICU+JSAjIEFFMmI5MDBBTiB3YXMgcmVtb3ZlZAogIG11dGF0ZShkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCAiMTQzQiIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgYygiQUUyYTE0M0IiLCJBRTJiMTQzQiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIyMDBCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTJiMjAwQiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lICMgQUUyYTIwMEIgd2FzIHJlbW92ZWQKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjIzN0IiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksIGMoIkFFMmEyMzdCIiwiQUUyYjIzN0IiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCAiMjQ3QiIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgYygiQUUyYTI0N0IiLCJBRTJiMjQ3QiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhKSksICIyNjdCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTJiMjY3QiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lICMgQUUyYTI2N0Igd2FzIHJlbW92ZWQKICBtdXRhdGUoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmEpKSwgIjkwMEJOIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYSkpLCBjKCJBRTJiOTAwQk4iKSksIG5hLnJtID0gVFJVRSkpICMgQUUyYTkwMEJOIHdhcyByZW1vdmVkCgpvdHVfdGFibGVfbWVhbl9yYSA8LSBvdHVfdGFibGVfbWVhbl9yYVssdW5pcXVlKG1ldGFkYXRhJFJlcGxpY2F0ZSldCgpvdHVfdGFibGVfbWVhbl9yYQpgYGAKCk1ha2UgaW50byBuZXcgcGh5bG9zZXEgb2JqZWN0CmBgYHtyfQptZXRhZGF0YTIgPC0gdW5pcXVlKHNlbGVjdChtZXRhZGF0YSwhYygnU2FtcGxlIE5hbWUnLFR5cGUsY29sbmFtZXMoU1JBUnVuVGFibGUpKSkpCk1FVEEyIDwtIHNhbXBsZV9kYXRhKGRhdGEuZnJhbWUobWV0YWRhdGEyLCByb3cubmFtZXMgPSBtZXRhZGF0YTIkUmVwbGljYXRlKSkKCnBzX3JhX21lYW4gPC0gcGh5bG9zZXEob3R1X3RhYmxlKG90dV90YWJsZV9tZWFuX3JhLCB0YXhhX2FyZV9yb3dzID0gVFJVRSksIFRBWCwgVFJFRSwgTUVUQTIpCmBgYAoKCmBgYHtyfQojIEZpcnN0IGFnbG9tZXJhdGUgdGhlIEFTVnMgYXQgdGhlIHBoeWx1bSBsZXZlbCB1c2luZyB0aGUgcGh5bG9zZXEgZnVuY3Rpb24sIHRheF9nbG9tCnBzX3JhX21lYW5fZGl2aXNpb24gPC0gdGF4X2dsb20ocHNfcmFfbWVhbiwgIkRpdmlzaW9uIikKCgojIGFuZCBjaGVjayBieSBiYXIgcGxvdHRpbmcKcGxvdF9iYXIocHNfcmFfbWVhbl9kaXZpc2lvbiwgeCA9ICJTYW1wbGUiLCBmaWxsID0gIkRpdmlzaW9uIikgKyAKICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBEaXZpc2lvblBhbGV0dGUpCmBgYAoKIyBBYnVuZGFuY2UgUGxvdHMKCiMjIERpdmlzaW9ucwojIyMgUHJlcGFyZSBkYXRhCkV4dHJhY3QgbWVhbiByZWxhdGl2ZSBhYnVuZGFuY2UsIGdsb21tZWQgYnkgZGl2aXNpb24sIGZyb20gdGhlIHBoeWxvc2VxIG9iamVjdCBhbmQgcGFpciBpdCB0byB0YXhvbm9taWMgZGF0YQpgYGB7cn0KZGl2aXNpb25fZGYgPC0gZGF0YS5mcmFtZShvdHVfdGFibGUocHNfcmFfbWVhbl9kaXZpc2lvbikpCmNvbG5hbWVzKGRpdmlzaW9uX2RmKSA8LSBjb2xuYW1lcyhvdHVfdGFibGUocHNfcmFfbWVhbl9kaXZpc2lvbikpCmRpdmlzaW9uX2RmJEFTViA8LSByb3duYW1lcyhkaXZpc2lvbl9kZikKCm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihkaXZpc2lvbl9kZiwgYXNfdGliYmxlKHRheG9ub215LCByb3duYW1lcyA9ICJBU1YiKSwgYnkgPSAiQVNWIikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgpTb21lIG1hbnVhbCBjdXJhdGluZyBmb3IgcGxvdHRpbgpgYGB7cn0KIyBNYWtlIGEgbmV3IGNvbHVtbiB0aGF0IGhhcyBTdXBlcmdyb3VwLURpdmlzaW9uIGluIHNhbWUgY29sdW0Kb3R1X3RhYmxlX21lYW5fcmEkU3VwZXJncm91cERpdmlzaW9uIDwtIHBhc3RlKG90dV90YWJsZV9tZWFuX3JhJFN1cGVyZ3JvdXAsIG90dV90YWJsZV9tZWFuX3JhJERpdmlzaW9uKQoKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKClBpdm90IGxvbmdlcgpgYGB7cn0Kb3R1X3RhYmxlX21lYW5fcmEgPC0gcGl2b3RfbG9uZ2VyKG90dV90YWJsZV9tZWFuX3JhLCBjb2xzID0gdW5pcXVlKG1ldGFkYXRhJFJlcGxpY2F0ZSksIG5hbWVzX3RvID0gIlJlcGxpY2F0ZSIsIHZhbHVlc190byA9ICJNZWFuX1JBIikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKSm9pbiBtZXRhZGF0YSAKYGBge3J9Cm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihvdHVfdGFibGVfbWVhbl9yYSwgdW5pcXVlKHNlbGVjdChtZXRhZGF0YSwgYygiUmVwbGljYXRlIiwgIkRlcHRoIiwgIlNpemVGcmFjdGlvbiIsICJTZWFzb24iLCAiT3hDb25kIiwgIkZsdW9yZXNjZW5jZSIsICJCZWFtQXR0IiwgIk8yIiwgIlRlbXAiLCAiU2FsaW5pdHkiLCAiSDJTIiwgIlBhcnRpY3VsYXRlUyIsICJUWlZTIiwgIkNINCIsICJOTzMiLCAiTk8yIiwgIk5INCIsICJQTzQiLCAiQ2hlbW9hdXRvdHJvcGh5IiwgIkJOUCIsICJNaWNyb0FidW4oeDEwXjggTF4tMSkiLCAiRmxhZ0FidW4oeDEwXjUgTC0xKSIsICJWTFAoeDEwXjggTC0xKSIpKSksIGJ5ID0gIlJlcGxpY2F0ZSIpCgojIFJlcGxhY2UgemVyb2VzIGluIFJBIHdpdGggTkEgKGJldHRlciBmb3IgcGxvdHRpbmcpCm90dV90YWJsZV9tZWFuX3JhJE1lYW5fUkFbb3R1X3RhYmxlX21lYW5fcmEkTWVhbl9SQSA9PSAwXSA8LSBOQQoKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKIyMjIEJ1YmJsZSBQbG90IG9mIERpdmlzaW9ucwoKYGBge3J9CiMgcmVvcmRlciBzb21lIGZhY3RvcnMgdG8gbWFrZSB0aGVtIHBsb3QgaW4gdGhlIG9yZGVyIEkgd2FudApvdHVfdGFibGVfbWVhbl9yYSRPeENvbmQgPC0gZmFjdG9yKG90dV90YWJsZV9tZWFuX3JhJE94Q29uZCwgbGV2ZWxzID0gYygiT3h5Y2xpbmUiLCAiU2hhbGxvd0Fub3hpYyIsICJFdXhpbmljIikpCm90dV90YWJsZV9tZWFuX3JhJFNpemVGcmFjdGlvbiA8LSBmYWN0b3Iob3R1X3RhYmxlX21lYW5fcmEkU2l6ZUZyYWN0aW9uLCBsZXZlbHMgPSBjKCJQQSIsICJGTCIpKQoKZXVrX2RpdmlzaW9uc19idWJibGVwbG90X2NvbG9yIDwtIGdncGxvdChvdHVfdGFibGVfbWVhbl9yYSxhZXMgKHggPSBhcy5jaGFyYWN0ZXIoRGVwdGgpLCB5ID0gcmVvcmRlcihTdXBlcmdyb3VwRGl2aXNpb24sIE1lYW5fUkEsIGZ1bmN0aW9uKHgpe3N1bSh4LG5hLnJtID0gVFJVRSl9KSwgY29sb3IgPSBPeENvbmQpKSArIAogIGdlb21fcG9pbnQoYWVzKHNpemUgPU1lYW5fUkEpKSsKICBmYWNldF93cmFwKFNlYXNvbn5TaXplRnJhY3Rpb24sIHNjYWxlcyA9ICJmcmVlX3giLCBkcm9wPSBUUlVFLCBuY29sID0gNCkgKwogIHNjYWxlX3NpemUocmFuZ2UgPSBjKDEsMTUpKSArCiAgc2NhbGVfc2l6ZV9hcmVhKGJyZWFrcyA9IGMoMCwuMjUsLjUsLjc1LDEpLCBtYXhfc2l6ZSA9IDYpICsKICB4bGFiKCJEZXB0aCIpICsKICB5bGFiKCIiKSArCiAgbGFicyhzaXplPSJSZWxhdGl2ZSBBYnVuZGFuY2UiLCBjb2xvciA9ICJSZWRveCBDb25kaXRpb24iKSArCiAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjKCJibHVlIiwgInJlZCIsICJicm93bjQiKSkgKwogIHRoZW1lX2J3KCkgKwogIHRoZW1lKGF4aXMudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemU9OCwgYW5nbGUgPSA0NSwgaGp1c3QgPSAxKSwKICAgICAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBzdHJpcC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSA4KSwKICAgICAgICBsZWdlbmQubWFyZ2luPW1hcmdpbigwLDAsMCwyKSwKICAgICAgICBsZWdlbmQuYm94Lm1hcmdpbj1tYXJnaW4oLTEwLC0xMCwtMTAsLTEwKSwKICAgICAgICBwbG90Lm1hcmdpbj1ncmlkOjp1bml0KGMoMCwwLDAsMCksICJtbSIpKQoKZXVrX2RpdmlzaW9uc19idWJibGVwbG90X2NvbG9yCmBgYAoKU2F2ZSBmaWd1cmUKYGBge3J9CiMgc2V0IGV4cGxpY2l0IHBhbmVsIHNpemUgc28gdGhleSB3aWxsIGJlIGNvbnNpc3RlbnQgZm9yIGFsbCBmaWd1cmVzCmV1a19kaXZpc2lvbnNfYnViYmxlcGxvdF9jb2xvciA8LSBzZXRfcGFuZWxfc2l6ZShldWtfZGl2aXNpb25zX2J1YmJsZXBsb3RfY29sb3IsIHdpZHRoICA9IHVuaXQoMjIsICJtbSIpLCBoZWlnaHQgPSB1bml0KDEwMCwgIm1tIikpICAKCmdnc2F2ZShmaWxlbmFtZSA9ICJGaWd1cmVzL2V1a19kaXZpc2lvbnNfYnViYmxlcGxvdF9jb2xvci5lcHMiLCBwbG90ID0gZXVrX2RpdmlzaW9uc19idWJibGVwbG90X2NvbG9yLCB1bml0cyA9IGMoIm1tIiksIHdpZHRoID0gMTgwLCBoZWlnaHQgPSAxMjUsIGRwaSA9IDMwMCkKYGBgCgoKCiMjIE9yZGVycyB3aXRoaW4gQWx2ZW9sYXRhCiMjIyBQcmVwYXJlIGRhdGEKRmlsdGVyIHRvIG9ubHkgQWx2ZW9sYXRlczsgZ2xvbSBieSBvcmRlcgpgYGB7cn0Ka2VlcHRheGEgPC0gdGF4YV9uYW1lcyhwc19yYV9tZWFuKVsoYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfcmFfbWVhbikpJFN1cGVyZ3JvdXAgJWluJSBjKCJBbHZlb2xhdGEiKSldCnBzX3JhX21lYW5fYWx2ZW9sYXRlcyA8LSBwcnVuZV90YXhhKGtlZXB0YXhhLCBwc19yYV9tZWFuKQpwc19yYV9tZWFuX2FsdmVvbGF0ZV9vcmRlcnMgPC0gdGF4X2dsb20ocHNfcmFfbWVhbl9hbHZlb2xhdGVzLCAiT3JkZXIiKQoKYXZlbG9hdGVzX2RmIDwtIGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhX21lYW5fYWx2ZW9sYXRlX29yZGVycykpCmNvbG5hbWVzKGF2ZWxvYXRlc19kZikgPC0gY29sbmFtZXMob3R1X3RhYmxlKHBzX3JhX21lYW5fYWx2ZW9sYXRlX29yZGVycykpCmF2ZWxvYXRlc19kZiRBU1YgPC0gcm93bmFtZXMoYXZlbG9hdGVzX2RmKQoKb3R1X3RhYmxlX21lYW5fcmEgPC0gbGVmdF9qb2luKGF2ZWxvYXRlc19kZiwgYXNfdGliYmxlKHRheG9ub215LCByb3duYW1lcyA9ICJBU1YiKSwgYnkgPSAiQVNWIikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgpTb21lIG1hbnVhbCBjdXJhdGluZyBmb3IgcGxvdHRpbgpgYGB7cn0KIyBNYWtlIGEgbmV3IGNvbHVtbiB0aGF0IGhhcyBkZXNjcmlwdGl2ZSB0YXhvbm9teQpvdHVfdGFibGVfbWVhbl9yYSREZXNjcmlwdGl2ZSA8LSBwYXN0ZShvdHVfdGFibGVfbWVhbl9yYSREaXZpc2lvbiwgb3R1X3RhYmxlX21lYW5fcmEkQ2xhc3MsIG90dV90YWJsZV9tZWFuX3JhJE9yZGVyKQpvdHVfdGFibGVfbWVhbl9yYQpgYGAKCgoKUGl2b3QgbG9uZ2VyCmBgYHtyfQpvdHVfdGFibGVfbWVhbl9yYSA8LSBwaXZvdF9sb25nZXIob3R1X3RhYmxlX21lYW5fcmEsIGNvbHMgPSB1bmlxdWUobWV0YWRhdGEkUmVwbGljYXRlKSwgbmFtZXNfdG8gPSAiUmVwbGljYXRlIiwgdmFsdWVzX3RvID0gIk1lYW5fUkEiKQpvdHVfdGFibGVfbWVhbl9yYQpgYGAKCgpKb2luIG1ldGFkYXRhIApgYGB7cn0Kb3R1X3RhYmxlX21lYW5fcmEgPC0gbGVmdF9qb2luKG90dV90YWJsZV9tZWFuX3JhLCB1bmlxdWUoc2VsZWN0KG1ldGFkYXRhLCBjKCJSZXBsaWNhdGUiLCAiRGVwdGgiLCAiU2l6ZUZyYWN0aW9uIiwgIlNlYXNvbiIsICJPeENvbmQiLCAiRmx1b3Jlc2NlbmNlIiwgIkJlYW1BdHQiLCAiTzIiLCAiVGVtcCIsICJTYWxpbml0eSIsICJIMlMiLCAiUGFydGljdWxhdGVTIiwgIlRaVlMiLCAiQ0g0IiwgIk5PMyIsICJOTzIiLCAiTkg0IiwgIlBPNCIsICJDaGVtb2F1dG90cm9waHkiLCAiQk5QIiwgIk1pY3JvQWJ1bih4MTBeOCBMXi0xKSIsICJGbGFnQWJ1bih4MTBeNSBMLTEpIiwgIlZMUCh4MTBeOCBMLTEpIikpKSwgYnkgPSAiUmVwbGljYXRlIikKCiMgUmVwbGFjZSB6ZXJvZXMgaW4gUkEgd2l0aCBOQSAoYmV0dGVyIGZvciBwbG90dGluZykKb3R1X3RhYmxlX21lYW5fcmEkTWVhbl9SQVtvdHVfdGFibGVfbWVhbl9yYSRNZWFuX1JBID09IDBdIDwtIE5BCgpvdHVfdGFibGVfbWVhbl9yYQpgYGAKClNob3J0ZW4gc29tZSBsYWJlbHMgdG8gbWFrZSBzcGFjZSBpbiBwbG90CmBgYHtyfQpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJDaWxpb3Bob3JhIEN5Y2xvdHJpY2hpdW1fbGlrZV9vcmdhbmlzbSBDeWNsb3RyaWNoaXVtX2xpa2Vfb3JnYW5pc21fWCIpXSA8LSBjKCJDaWxpby4gQ3ljbG90cmljaGl1bV9saWtlIEN5Y2xvdHJpY2hpdW1fbGlrZSIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJBcGljb21wbGV4YSBHcmVnYXJpbm9tb3JwaGVhIEdyZWdhcmluZXNfR1JFMiIpXSA8LSBjKCJBcGljb20uIEdyZWdhcmlub21vcnBoZWEgR1JFMiIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJBcGljb21wbGV4YSBHcmVnYXJpbm9tb3JwaGVhIEV1Z3JlZ2FyaW5vcmlkYSIpXSA8LSBjKCJBcGljb20uIEdyZWdhcmlub21vcnBoZWEgRXVncmVnYXJpbm9yaWRhIikKCm90dV90YWJsZV9tZWFuX3JhW290dV90YWJsZV9tZWFuX3JhID09IGMoIkFwaWNvbXBsZXhhIENvY2NpZGlvbW9ycGhlYSBBZ2Ftb2NvY2NpZGlvcmlkYSIpXSA8LSBjKCJBcGljb20uIENvY2NpZGlvbW9ycGhlYSBBZ2Ftb2NvY2NpZGlvcmlkYSIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJEaW5vZmxhZ2VsbGF0YSBFbGxvYmlvcGh5Y2VhZSBUaGFsYXNzb215Y2V0YWxlcyIpXSA8LSBjKCJEaW5vLiBFbGxvYmlvcGh5Y2VhZSBUaGFsYXNzb215Y2V0YWxlcyIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJDaWxpb3Bob3JhIE9saWdvaHltZW5vcGhvcmVhIFNjdXRpY29jaWxpYXRpYV8xIildIDwtIGMoIkNpbGlvLiBPbGlnb2h5bWVub3Bob3JlYSBTY3V0aWNvY2lsaWF0aWFfMSIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJBcGljb21wbGV4YSBBcGljb21wbGV4YV9YIEFwaWNvbXBsZXhhX1hYIildIDwtIGMoIkFwaWNvbS4gQXBpY29tcGxleGFfWCBBcGljb21wbGV4YV9YWCIpCgpvdHVfdGFibGVfbWVhbl9yYQpgYGAKCgojIyMgQnViYmxlIFBsb3Qgb2YgT3JkZXJzIHdpdGhpbiBBbHZlb2xhdGEKCmBgYHtyfQojIHJlb3JkZXIgc29tZSBmYWN0b3JzIHRvIG1ha2UgdGhlbSBwbG90IGluIHRoZSBvcmRlciBJIHdhbnQKb3R1X3RhYmxlX21lYW5fcmEkT3hDb25kIDwtIGZhY3RvcihvdHVfdGFibGVfbWVhbl9yYSRPeENvbmQsIGxldmVscyA9IGMoIk94eWNsaW5lIiwgIlNoYWxsb3dBbm94aWMiLCAiRXV4aW5pYyIpKQpvdHVfdGFibGVfbWVhbl9yYSRTaXplRnJhY3Rpb24gPC0gZmFjdG9yKG90dV90YWJsZV9tZWFuX3JhJFNpemVGcmFjdGlvbiwgbGV2ZWxzID0gYygiUEEiLCAiRkwiKSkKCgphbHZlb2xhdGFfYnViYmxlcGxvdF9jb2xvciA8LSBnZ3Bsb3Qob3R1X3RhYmxlX21lYW5fcmEsYWVzICh4ID0gYXMuY2hhcmFjdGVyKERlcHRoKSwgeSA9IHJlb3JkZXIoRGVzY3JpcHRpdmUsIE1lYW5fUkEsIGZ1bmN0aW9uKHgpe3N1bSh4LG5hLnJtID0gVFJVRSl9KSwgY29sb3IgPSBPeENvbmQpKSArIAogIGdlb21fcG9pbnQoYWVzKHNpemUgPU1lYW5fUkEpKSsKICBmYWNldF93cmFwKFNlYXNvbn5TaXplRnJhY3Rpb24sIHNjYWxlcyA9ICJmcmVlX3giLCBkcm9wPSBUUlVFLCBuY29sID0gNCkgKwogIHNjYWxlX3NpemUocmFuZ2UgPSBjKDEsMTUpKSArCiAgc2NhbGVfc2l6ZV9hcmVhKGJyZWFrcyA9IGMoMCwuMjUsLjUsLjc1LDEpLCBtYXhfc2l6ZSA9IDYpICsKICB4bGFiKCJEZXB0aCIpICsKICB5bGFiKCIiKSArCiAgbGFicyhzaXplPSJSZWxhdGl2ZSBBYnVuZGFuY2UiLCBjb2xvciA9ICJSZWRveCBDb25kaXRpb24iKSArCiAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjKCJibHVlIiwgInJlZCIsICJicm93bjQiKSkgKwogIHRoZW1lX2J3KCkgKwogIHRoZW1lKGF4aXMudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemU9OCwgYW5nbGUgPSA0NSwgaGp1c3QgPSAxKSwKICAgICAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBzdHJpcC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSA4KSwKICAgICAgICBsZWdlbmQubWFyZ2luPW1hcmdpbigwLDAsMCwyKSwKICAgICAgICBsZWdlbmQuYm94Lm1hcmdpbj1tYXJnaW4oLTEwLC0xMCwtMTAsLTEwKSwKICAgICAgICBwbG90Lm1hcmdpbj1ncmlkOjp1bml0KGMoMCwwLDAsMCksICJtbSIpKQoKYWx2ZW9sYXRhX2J1YmJsZXBsb3RfY29sb3IKYGBgCgpTYXZlIGZpZ3VyZQpgYGB7cn0KIyBzZXQgZXhwbGljaXQgcGFuZWwgc2l6ZSBzbyB0aGV5IHdpbGwgYmUgY29uc2lzdGVudCBmb3IgYWxsIGZpZ3VyZXMKYWx2ZW9sYXRhX2J1YmJsZXBsb3RfY29sb3IgPC0gc2V0X3BhbmVsX3NpemUoYWx2ZW9sYXRhX2J1YmJsZXBsb3RfY29sb3IsIHdpZHRoICA9IHVuaXQoMjAsICJtbSIpLCBoZWlnaHQgPSB1bml0KDEyNSwgIm1tIikpICAKCmdnc2F2ZShmaWxlbmFtZSA9ICJGaWd1cmVzL2FsdmVvbGF0YV9idWJibGVwbG90X2NvbG9yLmVwcyIsIHBsb3QgPSBhbHZlb2xhdGFfYnViYmxlcGxvdF9jb2xvciwgdW5pdHMgPSBjKCJtbSIpLCB3aWR0aCA9IDE4MCwgaGVpZ2h0ID0gMTUwLCBkcGkgPSAzMDApCmBgYAoKCgoKCgojIyBPcmRlcnMgd2l0aGluIFJoaXphcmlhCiMjIyBQcmVwYXJlIGRhdGEKRmlsdGVyIHRvIG9ubHkgUmhpemFyaWE7IGdsb20gYnkgb3JkZXIKYGBge3J9CmtlZXB0YXhhIDwtIHRheGFfbmFtZXMocHNfcmFfbWVhbilbKGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX3JhX21lYW4pKSRTdXBlcmdyb3VwICVpbiUgYygiUmhpemFyaWEiKSldCnBzX3JhX21lYW5fcmhpemFyaWEgPC0gcHJ1bmVfdGF4YShrZWVwdGF4YSwgcHNfcmFfbWVhbikKcHNfcmFfbWVhbl9yaGl6YXJpYV9vcmRlcnMgPC0gdGF4X2dsb20ocHNfcmFfbWVhbl9yaGl6YXJpYSwgIk9yZGVyIikKCnJoaXphcmlhX2RmIDwtIGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhX21lYW5fcmhpemFyaWFfb3JkZXJzKSkKY29sbmFtZXMocmhpemFyaWFfZGYpIDwtIGNvbG5hbWVzKG90dV90YWJsZShwc19yYV9tZWFuX3JoaXphcmlhX29yZGVycykpCnJoaXphcmlhX2RmJEFTViA8LSByb3duYW1lcyhyaGl6YXJpYV9kZikKCm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihyaGl6YXJpYV9kZiwgYXNfdGliYmxlKHRheG9ub215LCByb3duYW1lcyA9ICJBU1YiKSwgYnkgPSAiQVNWIikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgpTb21lIG1hbnVhbCBjdXJhdGluZyBmb3IgcGxvdHRpbmcKYGBge3J9CiMgTWFrZSBhIG5ldyBjb2x1bW4gdGhhdCBoYXMgZGVzY3JpcHRpdmUgdGF4b25vbXkKb3R1X3RhYmxlX21lYW5fcmEkRGVzY3JpcHRpdmUgPC0gcGFzdGUob3R1X3RhYmxlX21lYW5fcmEkRGl2aXNpb24sIG90dV90YWJsZV9tZWFuX3JhJENsYXNzLCBvdHVfdGFibGVfbWVhbl9yYSRPcmRlcikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKClBpdm90IGxvbmdlcgpgYGB7cn0Kb3R1X3RhYmxlX21lYW5fcmEgPC0gcGl2b3RfbG9uZ2VyKG90dV90YWJsZV9tZWFuX3JhLCBjb2xzID0gdW5pcXVlKG1ldGFkYXRhJFJlcGxpY2F0ZSksIG5hbWVzX3RvID0gIlJlcGxpY2F0ZSIsIHZhbHVlc190byA9ICJNZWFuX1JBIikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKSm9pbiBtZXRhZGF0YSAKYGBge3J9Cm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihvdHVfdGFibGVfbWVhbl9yYSwgdW5pcXVlKHNlbGVjdChtZXRhZGF0YSwgYygiUmVwbGljYXRlIiwgIkRlcHRoIiwgIlNpemVGcmFjdGlvbiIsICJTZWFzb24iLCAiT3hDb25kIiwgIkZsdW9yZXNjZW5jZSIsICJCZWFtQXR0IiwgIk8yIiwgIlRlbXAiLCAiU2FsaW5pdHkiLCAiSDJTIiwgIlBhcnRpY3VsYXRlUyIsICJUWlZTIiwgIkNINCIsICJOTzMiLCAiTk8yIiwgIk5INCIsICJQTzQiLCAiQ2hlbW9hdXRvdHJvcGh5IiwgIkJOUCIsICJNaWNyb0FidW4oeDEwXjggTF4tMSkiLCAiRmxhZ0FidW4oeDEwXjUgTC0xKSIsICJWTFAoeDEwXjggTC0xKSIpKSksIGJ5ID0gIlJlcGxpY2F0ZSIpCgojIFJlcGxhY2UgemVyb2VzIGluIFJBIHdpdGggTkEgKGJldHRlciBmb3IgcGxvdHRpbmcpCm90dV90YWJsZV9tZWFuX3JhJE1lYW5fUkFbb3R1X3RhYmxlX21lYW5fcmEkTWVhbl9SQSA9PSAwXSA8LSBOQQoKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKU2hvcnRlbiBzb21lIGxhYmVscyB0byBtYWtlIHNwYWNlIGluIHBsb3QKYGBge3J9Cm90dV90YWJsZV9tZWFuX3JhW290dV90YWJsZV9tZWFuX3JhID09IGMoIlJhZGlvbGFyaWEgQWNhbnRoYXJlYSBBcnRocmFjYW50aGlkYS1TeW1waHlhY2FudGhpZGEiKV0gPC0gYygiUmFkaW9sYXJpYSBBY2FudGhhcmVhIEEtUyIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJDZXJjb3pvYSBDaGxvcmFyYWNobmlvcGh5Y2VhZSBDaGxvcmFyYWNobmlvcGh5Y2VhZV9YIildIDwtIGMoIkNlcmNvem9hIENobG9yLiBDaGxvci5fWCIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJDZXJjb3pvYSBGaWxvc2EtVGhlY29maWxvc2VhIEZpbG9zYS1UaGVjb2ZpbG9zZWFfWCIpXSA8LSBjKCJDZXJjb3pvYSBGLVQgRi1UX1giKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgRmlsb3NhLUdyYW5vZmlsb3NlYSBGaWxvc2EtR3Jhbm9maWxvc2VhX1giKV0gPC0gYygiQ2VyY296b2EgRi1HLiBGLUcuX1giKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgQ2hsb3JhcmFjaG5pb3BoeWNlYWUgQ2hsb3JhcmFjaG5pZGEiKV0gPC0gYygiQ2VyY296b2EgQ2hsb3IuIENobG9yYXJhY2huaWRhIikKCm90dV90YWJsZV9tZWFuX3JhW290dV90YWJsZV9tZWFuX3JhID09IGMoIkNlcmNvem9hIEZpbG9zYS1JbWJyaWNhdGVhIFRoYXVtYXRvbW9uYWRpZGEiKV0gPC0gYygiQ2VyY296b2EgRi1JIFRoYXVtYXRvbW9uYWRpZGEiKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgRmlsb3NhLUltYnJpY2F0ZWEgRmlsb3NhLUltYnJpY2F0ZWFfWCIpXSA8LSBjKCJDZXJjb3pvYSBGLUkgRi1JX1giKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgRW5kb215eGEtUGh5dG9teXhlYSBQaGFnb215eGlkYSIpXSA8LSBjKCJDZXJjb3pvYSBFLVAgUGhhZ29teXhpZGEiKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgRmlsb3NhLVNhcmNvbW9uYWRlYSBDZXJjb21vbmFkaWRhIildIDwtIGMoIkNlcmNvem9hIEYtUyBDZXJjb21vbmFkaWRhIikKCm90dV90YWJsZV9tZWFuX3JhW290dV90YWJsZV9tZWFuX3JhID09IGMoIkNlcmNvem9hIE5vdmVsLWNsYWRlLTEwLTEyIE5vdmVsLWNsYWRlLTEyIildIDwtIGMoIkNlcmNvem9hIE4tQ+KIkjEw4oiSMTIgTi1D4oiSMTIiKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgRmlsb3NhLVRoZWNvZmlsb3NlYSBWZW50cmljbGVmdGlkYSIpXSA8LSBjKCJDZXJjb3pvYSBGLVQgVmVudHJpY2xlZnRpZGEiKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgRmlsb3NhLUltYnJpY2F0ZWEgTWFyaW1vbmFkaWRhIildIDwtIGMoIkNlcmNvem9hIEYtSSBNYXJpbW9uYWRpZGEiKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2VyY296b2EgRmlsb3NhLVRoZWNvZmlsb3NlYSBDcnlvbW9uYWRpZGEiKV0gPC0gYygiQ2VyY296b2EgRi1UIENyeW9tb25hZGlkYSIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJDZXJjb3pvYSBGaWxvc2EtU2FyY29tb25hZGVhIEdsaXNzb21vbmFkaWRhIildIDwtIGMoIkNlcmNvem9hIEYtUyBHbGlzc29tb25hZGlkYSIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJDZXJjb3pvYSBGaWxvc2EtSW1icmljYXRlYSBFdWdseXBoaWRhIildIDwtIGMoIkNlcmNvem9hIEYtSSBFdWdseXBoaWRhIikKCgpvdHVfdGFibGVfbWVhbl9yYQpgYGAKCgoKIyMjIEJ1YmJsZSBQbG90IG9mIE9yZGVycyB3aXRoaW4gUmhpemFyaWEKCmBgYHtyfQojIHJlb3JkZXIgc29tZSBmYWN0b3JzIHRvIG1ha2UgdGhlbSBwbG90IGluIHRoZSBvcmRlciBJIHdhbnQKb3R1X3RhYmxlX21lYW5fcmEkT3hDb25kIDwtIGZhY3RvcihvdHVfdGFibGVfbWVhbl9yYSRPeENvbmQsIGxldmVscyA9IGMoIk94eWNsaW5lIiwgIlNoYWxsb3dBbm94aWMiLCAiRXV4aW5pYyIpKQpvdHVfdGFibGVfbWVhbl9yYSRTaXplRnJhY3Rpb24gPC0gZmFjdG9yKG90dV90YWJsZV9tZWFuX3JhJFNpemVGcmFjdGlvbiwgbGV2ZWxzID0gYygiUEEiLCAiRkwiKSkKCnJoaXphcmlhX2J1YmJsZXBsb3RfY29sb3IgPC0gZ2dwbG90KG90dV90YWJsZV9tZWFuX3JhLGFlcyAoeCA9IGFzLmNoYXJhY3RlcihEZXB0aCksIHkgPSByZW9yZGVyKERlc2NyaXB0aXZlLCBNZWFuX1JBLCBmdW5jdGlvbih4KXtzdW0oeCxuYS5ybSA9IFRSVUUpfSksIGNvbG9yID0gT3hDb25kKSkgKyAKICBnZW9tX3BvaW50KGFlcyhzaXplID1NZWFuX1JBKSkrCiAgZmFjZXRfd3JhcChTZWFzb25+U2l6ZUZyYWN0aW9uLCBzY2FsZXMgPSAiZnJlZV94IiwgZHJvcD0gVFJVRSwgbmNvbCA9IDQpICsKICBzY2FsZV9zaXplKHJhbmdlID0gYygxLDE1KSkgKwogIHNjYWxlX3NpemVfYXJlYShicmVha3MgPSBjKDAsLjI1LC41LC43NSwxKSwgbWF4X3NpemUgPSA2KSArCiAgeGxhYigiRGVwdGgiKSArCiAgeWxhYigiIikgKwogIGxhYnMoc2l6ZT0iUmVsYXRpdmUgQWJ1bmRhbmNlIiwgY29sb3IgPSAiUmVkb3ggQ29uZGl0aW9uIikgKwogICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygiYmx1ZSIsICJyZWQiLCAiYnJvd240IikpICsKICB0aGVtZV9idygpICsKICB0aGVtZShheGlzLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplPTgsIGFuZ2xlID0gNDUsIGhqdXN0ID0gMSksCiAgICAgICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGxlZ2VuZC50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gOCksCiAgICAgICAgbGVnZW5kLm1hcmdpbj1tYXJnaW4oMCwwLDAsMiksCiAgICAgICAgbGVnZW5kLmJveC5tYXJnaW49bWFyZ2luKC0xMCwtMTAsLTEwLC0xMCksCiAgICAgICAgcGxvdC5tYXJnaW49Z3JpZDo6dW5pdChjKDAsMCwwLDApLCAibW0iKSkKCnJoaXphcmlhX2J1YmJsZXBsb3RfY29sb3IKYGBgCgpTYXZlIGZpZ3VyZQpgYGB7cn0KIyBzZXQgZXhwbGljaXQgcGFuZWwgc2l6ZSBzbyB0aGV5IHdpbGwgYmUgY29uc2lzdGVudCBmb3IgYWxsIGZpZ3VyZXMKcmhpemFyaWFfYnViYmxlcGxvdF9jb2xvciA8LSBzZXRfcGFuZWxfc2l6ZShyaGl6YXJpYV9idWJibGVwbG90X2NvbG9yLCB3aWR0aCAgPSB1bml0KDIwLCAibW0iKSwgaGVpZ2h0ID0gdW5pdCgxMDAsICJtbSIpKSAgCgpnZ3NhdmUoZmlsZW5hbWUgPSAiRmlndXJlcy9yaGl6YXJpYV9idWJibGVwbG90X2NvbG9yLmVwcyIsIHBsb3QgPSByaGl6YXJpYV9idWJibGVwbG90X2NvbG9yLCB1bml0cyA9IGMoIm1tIiksIHdpZHRoID0gMTgwLCBoZWlnaHQgPSAxMjUsIGRwaSA9IDMwMCkKYGBgCgoKCgojIyBPcmRlcnMgd2l0aGluIE9waXN0aG9rb250YQojIyMgUHJlcGFyZSBkYXRhCkZpbHRlciB0byBvbmx5IE9waXN0aG9rb250YTsgZ2xvbSBieSBvcmRlcgpgYGB7cn0Ka2VlcHRheGEgPC0gdGF4YV9uYW1lcyhwc19yYV9tZWFuKVsoYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfcmFfbWVhbikpJFN1cGVyZ3JvdXAgJWluJSBjKCJPcGlzdGhva29udGEiKSldCnBzX3JhX21lYW5fb3Bpc3Rob2tvbnRhIDwtIHBydW5lX3RheGEoa2VlcHRheGEsIHBzX3JhX21lYW4pCnBzX3JhX21lYW5fb3Bpc3Rob2tvbnRhX29yZGVycyA8LSB0YXhfZ2xvbShwc19yYV9tZWFuX29waXN0aG9rb250YSwgIk9yZGVyIikKCm9waXN0aG9rb250YV9kZiA8LSBkYXRhLmZyYW1lKG90dV90YWJsZShwc19yYV9tZWFuX29waXN0aG9rb250YV9vcmRlcnMpKQpjb2xuYW1lcyhvcGlzdGhva29udGFfZGYpIDwtIGNvbG5hbWVzKG90dV90YWJsZShwc19yYV9tZWFuX29waXN0aG9rb250YV9vcmRlcnMpKQpvcGlzdGhva29udGFfZGYkQVNWIDwtIHJvd25hbWVzKG9waXN0aG9rb250YV9kZikKCm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihvcGlzdGhva29udGFfZGYsIGFzX3RpYmJsZSh0YXhvbm9teSwgcm93bmFtZXMgPSAiQVNWIiksIGJ5ID0gIkFTViIpCm90dV90YWJsZV9tZWFuX3JhCmBgYAoKU29tZSBtYW51YWwgY3VyYXRpbmcgZm9yIHBsb3R0aW4KYGBge3J9CiMgTWFrZSBhIG5ldyBjb2x1bW4gdGhhdCBoYXMgZGVzY3JpcHRpdmUgdGF4b25vbXkKb3R1X3RhYmxlX21lYW5fcmEkRGVzY3JpcHRpdmUgPC0gcGFzdGUob3R1X3RhYmxlX21lYW5fcmEkRGl2aXNpb24sIG90dV90YWJsZV9tZWFuX3JhJENsYXNzLCBvdHVfdGFibGVfbWVhbl9yYSRPcmRlcikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKClBpdm90IGxvbmdlcgpgYGB7cn0Kb3R1X3RhYmxlX21lYW5fcmEgPC0gcGl2b3RfbG9uZ2VyKG90dV90YWJsZV9tZWFuX3JhLCBjb2xzID0gdW5pcXVlKG1ldGFkYXRhJFJlcGxpY2F0ZSksIG5hbWVzX3RvID0gIlJlcGxpY2F0ZSIsIHZhbHVlc190byA9ICJNZWFuX1JBIikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKSm9pbiBtZXRhZGF0YSAKYGBge3J9Cm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihvdHVfdGFibGVfbWVhbl9yYSwgdW5pcXVlKHNlbGVjdChtZXRhZGF0YSwgYygiUmVwbGljYXRlIiwgIkRlcHRoIiwgIlNpemVGcmFjdGlvbiIsICJTZWFzb24iLCAiT3hDb25kIiwgIkZsdW9yZXNjZW5jZSIsICJCZWFtQXR0IiwgIk8yIiwgIlRlbXAiLCAiU2FsaW5pdHkiLCAiSDJTIiwgIlBhcnRpY3VsYXRlUyIsICJUWlZTIiwgIkNINCIsICJOTzMiLCAiTk8yIiwgIk5INCIsICJQTzQiLCAiQ2hlbW9hdXRvdHJvcGh5IiwgIkJOUCIsICJNaWNyb0FidW4oeDEwXjggTF4tMSkiLCAiRmxhZ0FidW4oeDEwXjUgTC0xKSIsICJWTFAoeDEwXjggTC0xKSIpKSksIGJ5ID0gIlJlcGxpY2F0ZSIpCgojIFJlcGxhY2UgemVyb2VzIGluIFJBIHdpdGggTkEgKGJldHRlciBmb3IgcGxvdHRpbmcpCm90dV90YWJsZV9tZWFuX3JhJE1lYW5fUkFbb3R1X3RhYmxlX21lYW5fcmEkTWVhbl9SQSA9PSAwXSA8LSBOQQoKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgpTaG9ydGVuIHNvbWUgbGFiZWxzIHRvIG1ha2Ugc3BhY2UgaW4gcGxvdApgYGB7cn0Kb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2hvYW5vZmxhZ2VsbGlkYSBDaG9hbm9mbGFnZWxsYXRlYSBBY2FudGhvZWNpZGEiKV0gPC0gYygiQ2hvYW5vZi4gQ2guIEFjYW50aG9lY2lkYSIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJDaG9hbm9mbGFnZWxsaWRhIENob2Fub2ZsYWdlbGxhdGVhIENyYXNwZWRpZGEiKV0gPC0gYygiQ2hvYW5vZi4gQ2guIENyYXNwZWRpZGEiKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiQ2hvYW5vZmxhZ2VsbGlkYSBDaG9hbm9mbGFnZWxsYXRlYSBDaG9hbm9mbGFnZWxsYXRlYV9YIildIDwtIGMoIkNob2Fub2YuIENoLiBDaG9hbm9mbGFnZWxsYXRlYV9YIikKCm90dV90YWJsZV9tZWFuX3JhW290dV90YWJsZV9tZWFuX3JhID09IGMoIkNob2Fub2ZsYWdlbGxpZGEgQ2hvYW5vZmxhZ2VsbGlkYV9YIENob2Fub2ZsYWdlbGxpZGFfWFgiKV0gPC0gYygiQ2hvYW5vZi4gQ2hvYW5vZi5fWCBDaG9hbm9mLl9YWCIpCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJNZXNvbXljZXRvem9hIEljaHRoeW9zcG9yZWEgSWNodGh5b3NwaG9uaWRhIildIDwtIGMoIk1lc29teS4gSWNodGh5b3Nwb3JlYSBJY2h0aHlvc3Bob25pZGEiKQoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiT3Bpc3Rob2tvbnRhX1ggT3Bpc3Rob2tvbnRhX1hYIE9waXN0aG9rb250YV9YWFgiKV0gPC0gYygiT3Bpcy5fWCBPcGlzLl9YWCBPcGlzLl9YWFgiKQoKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgojIyMgQnViYmxlIFBsb3Qgb2YgT3JkZXJzIHdpdGhpbiBPcGlzdGhva29udGEKCmBgYHtyfQojIHJlb3JkZXIgc29tZSBmYWN0b3JzIHRvIG1ha2UgdGhlbSBwbG90IGluIHRoZSBvcmRlciBJIHdhbnQKb3R1X3RhYmxlX21lYW5fcmEkT3hDb25kIDwtIGZhY3RvcihvdHVfdGFibGVfbWVhbl9yYSRPeENvbmQsIGxldmVscyA9IGMoIk94eWNsaW5lIiwgIlNoYWxsb3dBbm94aWMiLCAiRXV4aW5pYyIpKQpvdHVfdGFibGVfbWVhbl9yYSRTaXplRnJhY3Rpb24gPC0gZmFjdG9yKG90dV90YWJsZV9tZWFuX3JhJFNpemVGcmFjdGlvbiwgbGV2ZWxzID0gYygiUEEiLCAiRkwiKSkKCm9waXRob2tvbnRhX2J1YmJsZXBsb3RfY29sb3IgPC0gZ2dwbG90KG90dV90YWJsZV9tZWFuX3JhLGFlcyAoeCA9IGFzLmNoYXJhY3RlcihEZXB0aCksIHkgPSByZW9yZGVyKERlc2NyaXB0aXZlLCBNZWFuX1JBLCBmdW5jdGlvbih4KXtzdW0oeCxuYS5ybSA9IFRSVUUpfSksIGNvbG9yID0gT3hDb25kKSkgKyAKICBnZW9tX3BvaW50KGFlcyhzaXplID1NZWFuX1JBKSkrCiAgZmFjZXRfd3JhcChTZWFzb25+U2l6ZUZyYWN0aW9uLCBzY2FsZXMgPSAiZnJlZV94IiwgZHJvcD0gVFJVRSwgbmNvbCA9IDQpICsKICBzY2FsZV9zaXplKHJhbmdlID0gYygxLDE1KSkgKwogIHNjYWxlX3NpemVfYXJlYShicmVha3MgPSBjKDAsLjEsLjIsLjMpLCBtYXhfc2l6ZSA9IDYpICsKICB4bGFiKCJEZXB0aCIpICsKICB5bGFiKCIiKSArCiAgbGFicyhzaXplPSJSZWxhdGl2ZSBBYnVuZGFuY2UiLCBjb2xvciA9ICJSZWRveCBDb25kaXRpb24iKSArCiAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjKCJibHVlIiwgInJlZCIsICJicm93bjQiKSkgKwogIHRoZW1lX2J3KCkgKwogIHRoZW1lKGF4aXMudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemU9OCwgYW5nbGUgPSA0NSwgaGp1c3QgPSAxKSwKICAgICAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBzdHJpcC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSA4KSwKICAgICAgICBsZWdlbmQubWFyZ2luPW1hcmdpbigwLDAsMCwyKSwKICAgICAgICBsZWdlbmQuYm94Lm1hcmdpbj1tYXJnaW4oLTEwLC0xMCwtMTAsLTEwKSwKICAgICAgICBwbG90Lm1hcmdpbj1ncmlkOjp1bml0KGMoMCwwLDAsMCksICJtbSIpKQoKb3BpdGhva29udGFfYnViYmxlcGxvdF9jb2xvcgpgYGAKClNhdmUgZmlndXJlCmBgYHtyfQojIHNldCBleHBsaWNpdCBwYW5lbCBzaXplIHNvIHRoZXkgd2lsbCBiZSBjb25zaXN0ZW50IGZvciBhbGwgZmlndXJlcwpvcGl0aG9rb250YV9idWJibGVwbG90X2NvbG9yIDwtIHNldF9wYW5lbF9zaXplKG9waXRob2tvbnRhX2J1YmJsZXBsb3RfY29sb3IsIHdpZHRoICA9IHVuaXQoMjAsICJtbSIpLCBoZWlnaHQgPSB1bml0KDEwMCwgIm1tIikpICAKCmdnc2F2ZShmaWxlbmFtZSA9ICJGaWd1cmVzL29waXRob2tvbnRhX2J1YmJsZXBsb3RfY29sb3IuZXBzIiwgcGxvdCA9IG9waXRob2tvbnRhX2J1YmJsZXBsb3RfY29sb3IsIHVuaXRzID0gYygibW0iKSwgd2lkdGggPSAxODAsIGhlaWdodCA9IDEyNSwgZHBpID0gMzAwKQpgYGAKCgoKCiMjIENsYXNzZXMgd2l0aGluIFN0cmFtZW5vcGlsZXMKIyMjIFByZXBhcmUgZGF0YQpGaWx0ZXIgdG8gb25seSBTdHJhbWVub3BpbGVzOyBnbG9tIGJ5IGNsYXNzIChtb3JlIG1lYW5pbmdmdWwgdGhhbiBPcmRlciBpbiB0aGlzIGNhc2UpCmBgYHtyfQprZWVwdGF4YSA8LSB0YXhhX25hbWVzKHBzX3JhX21lYW4pWyhhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19yYV9tZWFuKSkkU3VwZXJncm91cCAlaW4lIGMoIlN0cmFtZW5vcGlsZXMiKSldCnBzX3JhX21lYW5fc3RyYW1lbm9waWxlcyA8LSBwcnVuZV90YXhhKGtlZXB0YXhhLCBwc19yYV9tZWFuKQpwc19yYV9tZWFuX3N0cmFtZW5vcGlsZXNfY2xhc3NlcyA8LSB0YXhfZ2xvbShwc19yYV9tZWFuX3N0cmFtZW5vcGlsZXMsICJDbGFzcyIpCgpzdHJhbWVub3BpbGVzX2RmIDwtIGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX3JhX21lYW5fc3RyYW1lbm9waWxlc19jbGFzc2VzKSkKY29sbmFtZXMoc3RyYW1lbm9waWxlc19kZikgPC0gY29sbmFtZXMob3R1X3RhYmxlKHBzX3JhX21lYW5fc3RyYW1lbm9waWxlc19jbGFzc2VzKSkKc3RyYW1lbm9waWxlc19kZiRBU1YgPC0gcm93bmFtZXMoc3RyYW1lbm9waWxlc19kZikKCm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihzdHJhbWVub3BpbGVzX2RmLCBhc190aWJibGUodGF4b25vbXksIHJvd25hbWVzID0gIkFTViIpLCBieSA9ICJBU1YiKQpvdHVfdGFibGVfbWVhbl9yYQpgYGAKClNvbWUgbWFudWFsIGN1cmF0aW5nIGZvciBwbG90dGluCmBgYHtyfQojIE1ha2UgYSBuZXcgY29sdW1uIHRoYXQgaGFzIGRlc2NyaXB0aXZlIHRheG9ub215Cm90dV90YWJsZV9tZWFuX3JhJERlc2NyaXB0aXZlIDwtIHBhc3RlKG90dV90YWJsZV9tZWFuX3JhJERpdmlzaW9uLCBvdHVfdGFibGVfbWVhbl9yYSRDbGFzcykKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKClBpdm90IGxvbmdlcgpgYGB7cn0Kb3R1X3RhYmxlX21lYW5fcmEgPC0gcGl2b3RfbG9uZ2VyKG90dV90YWJsZV9tZWFuX3JhLCBjb2xzID0gdW5pcXVlKG1ldGFkYXRhJFJlcGxpY2F0ZSksIG5hbWVzX3RvID0gIlJlcGxpY2F0ZSIsIHZhbHVlc190byA9ICJNZWFuX1JBIikKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgoKSm9pbiBtZXRhZGF0YSAKYGBge3J9Cm90dV90YWJsZV9tZWFuX3JhIDwtIGxlZnRfam9pbihvdHVfdGFibGVfbWVhbl9yYSwgdW5pcXVlKHNlbGVjdChtZXRhZGF0YSwgYygiUmVwbGljYXRlIiwgIkRlcHRoIiwgIlNpemVGcmFjdGlvbiIsICJTZWFzb24iLCAiT3hDb25kIiwgIkZsdW9yZXNjZW5jZSIsICJCZWFtQXR0IiwgIk8yIiwgIlRlbXAiLCAiU2FsaW5pdHkiLCAiSDJTIiwgIlBhcnRpY3VsYXRlUyIsICJUWlZTIiwgIkNINCIsICJOTzMiLCAiTk8yIiwgIk5INCIsICJQTzQiLCAiQ2hlbW9hdXRvdHJvcGh5IiwgIkJOUCIsICJNaWNyb0FidW4oeDEwXjggTF4tMSkiLCAiRmxhZ0FidW4oeDEwXjUgTC0xKSIsICJWTFAoeDEwXjggTC0xKSIpKSksIGJ5ID0gIlJlcGxpY2F0ZSIpCgojIFJlcGxhY2UgemVyb2VzIGluIFJBIHdpdGggTkEgKGJldHRlciBmb3IgcGxvdHRpbmcpCm90dV90YWJsZV9tZWFuX3JhJE1lYW5fUkFbb3R1X3RhYmxlX21lYW5fcmEkTWVhbl9SQSA9PSAwXSA8LSBOQQoKb3R1X3RhYmxlX21lYW5fcmEKYGBgCgpTaG9ydGVuIHNvbWUgbGFiZWxzIHRvIG1ha2Ugc3BhY2UgaW4gcGxvdApgYGB7cn0Kb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiU3RyYW1lbm9waWxlc19YIFN0cmFtZW5vcGlsZXNfWFgiKV0gPC0gYygiU3RyYW1lbm8uX1ggU3RyYW1lbm8uX1hYIikKCm90dV90YWJsZV9tZWFuX3JhW290dV90YWJsZV9tZWFuX3JhID09IGMoIlN0cmFtZW5vcGlsZXNfWCBTdHJhbWVub3BpbGVzX1gtR3JvdXAtNyIpXSA8LSBjKCJTdHJhbWVuby5fWCBTdHJhbWVuby5fWOKIkkdyb3Vw4oiSNyIpCgoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiU3RyYW1lbm9waWxlc19YIE1BU1QtMjEiKV0gPC0gYygiU3RyYW1lbm8uX1ggTUFTVOKIkjIxIikKCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJTdHJhbWVub3BpbGVzX1ggTUFTVC0yNSIpXSA8LSBjKCJTdHJhbWVuby5fWCBNQVNULTI1IikKCgpvdHVfdGFibGVfbWVhbl9yYVtvdHVfdGFibGVfbWVhbl9yYSA9PSBjKCJTdHJhbWVub3BpbGVzX1ggU3RyYW1lbm9waWxlc19YLUdyb3VwLTQiKV0gPC0gYygiU3RyYW1lbm8uX1ggU3RyYW1lbm8uX1jiiJJHcm91cOKIkjQiKQoKCm90dV90YWJsZV9tZWFuX3JhW290dV90YWJsZV9tZWFuX3JhID09IGMoIlN0cmFtZW5vcGlsZXNfWCBTdHJhbWVub3BpbGVzX1gtR3JvdXAtNiIpXSA8LSBjKCJTdHJhbWVuby5fWCBTdHJhbWVuby5fWOKIkkdyb3Vw4oiSNiIpCgoKb3R1X3RhYmxlX21lYW5fcmFbb3R1X3RhYmxlX21lYW5fcmEgPT0gYygiU3RyYW1lbm9waWxlc19YIFN0cmFtZW5vcGlsZXNfWC1Hcm91cC04IildIDwtIGMoIlN0cmFtZW5vLl9YIFN0cmFtZW5vLl9Y4oiSR3JvdXDiiJI4IikKCgpvdHVfdGFibGVfbWVhbl9yYQpgYGAKCiMjIyBCdWJibGUgUGxvdCBvZiBPcmRlcnMgd2l0aGluIFN0cmFtZW5vcGlsZXMKCmBgYHtyfQojIHJlb3JkZXIgc29tZSBmYWN0b3JzIHRvIG1ha2UgdGhlbSBwbG90IGluIHRoZSBvcmRlciBJIHdhbnQKb3R1X3RhYmxlX21lYW5fcmEkT3hDb25kIDwtIGZhY3RvcihvdHVfdGFibGVfbWVhbl9yYSRPeENvbmQsIGxldmVscyA9IGMoIk94eWNsaW5lIiwgIlNoYWxsb3dBbm94aWMiLCAiRXV4aW5pYyIpKQpvdHVfdGFibGVfbWVhbl9yYSRTaXplRnJhY3Rpb24gPC0gZmFjdG9yKG90dV90YWJsZV9tZWFuX3JhJFNpemVGcmFjdGlvbiwgbGV2ZWxzID0gYygiUEEiLCAiRkwiKSkKCnN0cmFtZW5vcGlsZXNfYnViYmxlcGxvdF9jb2xvciA8LSBnZ3Bsb3Qob3R1X3RhYmxlX21lYW5fcmEsYWVzICh4ID0gYXMuY2hhcmFjdGVyKERlcHRoKSwgeSA9IHJlb3JkZXIoRGVzY3JpcHRpdmUsIE1lYW5fUkEsIGZ1bmN0aW9uKHgpe3N1bSh4LG5hLnJtID0gVFJVRSl9KSwgY29sb3IgPSBPeENvbmQpKSArIAogIGdlb21fcG9pbnQoYWVzKHNpemUgPU1lYW5fUkEpKSsKICBmYWNldF93cmFwKFNlYXNvbn5TaXplRnJhY3Rpb24sIHNjYWxlcyA9ICJmcmVlX3giLCBkcm9wPSBUUlVFLCBuY29sID0gNCkgKwogIHNjYWxlX3NpemUocmFuZ2UgPSBjKDEsMTUpKSArCiAgc2NhbGVfc2l6ZV9hcmVhKGJyZWFrcyA9IGMoMCwuMSwuMiwuMyksIG1heF9zaXplID0gNikgKwogIHhsYWIoIkRlcHRoIikgKwogIHlsYWIoIiIpICsKICBsYWJzKHNpemU9IlJlbGF0aXZlIEFidW5kYW5jZSIsIGNvbG9yID0gIlJlZG94IENvbmRpdGlvbiIpICsKICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcyA9IGMoImJsdWUiLCAicmVkIiwgImJyb3duNCIpKSArCiAgdGhlbWVfYncoKSArCiAgdGhlbWUoYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZT04LCBhbmdsZSA9IDQ1LCBoanVzdCA9IDEpLAogICAgICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBsZWdlbmQudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIHN0cmlwLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDgpLAogICAgICAgIGxlZ2VuZC5tYXJnaW49bWFyZ2luKDAsMCwwLDIpLAogICAgICAgIGxlZ2VuZC5ib3gubWFyZ2luPW1hcmdpbigtMTAsLTEwLC0xMCwtMTApLAogICAgICAgIHBsb3QubWFyZ2luPWdyaWQ6OnVuaXQoYygwLDAsMCwwKSwgIm1tIikpCgpzdHJhbWVub3BpbGVzX2J1YmJsZXBsb3RfY29sb3IKYGBgCgpTYXZlIGZpZ3VyZQpgYGB7cn0KIyBzZXQgZXhwbGljaXQgcGFuZWwgc2l6ZSBzbyB0aGV5IHdpbGwgYmUgY29uc2lzdGVudCBmb3IgYWxsIGZpZ3VyZXMKc3RyYW1lbm9waWxlc19idWJibGVwbG90X2NvbG9yIDwtIHNldF9wYW5lbF9zaXplKHN0cmFtZW5vcGlsZXNfYnViYmxlcGxvdF9jb2xvciwgd2lkdGggID0gdW5pdCgyMiwgIm1tIiksIGhlaWdodCA9IHVuaXQoMTE1LCAibW0iKSkgIAoKZ2dzYXZlKGZpbGVuYW1lID0gIkZpZ3VyZXMvc3RyYW1lbm9waWxlc19idWJibGVwbG90X2NvbG9yLmVwcyIsIHBsb3QgPSBzdHJhbWVub3BpbGVzX2J1YmJsZXBsb3RfY29sb3IsIHVuaXRzID0gYygibW0iKSwgd2lkdGggPSAxODAsIGhlaWdodCA9IDE1MCwgZHBpID0gMzAwKQpgYGAKCgojIERpdmVyc2l0eQoKIyMgQ2FsY3VsYXRlIFNoYW5ub24ncyBkaXZlcnNpdHkgdXNpbmcgdmVnYW4KYGBge3J9CnNoYW5ub25zIDwtIHZlZ2FuOjpkaXZlcnNpdHkodChvdHVfdGFibGUocHMpKSwgaW5kZXggPSAic2hhbm5vbiIpCnNoYW5ub25zIDwtIHQoc2hhbm5vbnMpCnNoYW5ub25zCmBgYAoKIyMgQXZlcmFnZSB0aGUgcmVwbGljYXRlcwpgYGB7cn0Kc2hhbm5vbnNfbWVhbiA8LSAgCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMTAzQSIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFM2ExMDNBIiwiQUUzYjEwM0EiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjE5OEEiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNiMTk4QSIpKSwgbmEucm0gPSBUUlVFKSkgICU+JSAjIFNhbXBsZSBBRTNhMTk4QSB3YXMgcmVtb3ZlZAogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjIzNEEiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhMjM0QSIsIkFFM2IyMzRBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyOTVBIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTI5NUEiLCJBRTNiMjk1QSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMzE0QSIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFM2EzMTRBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUgICMgU2FtcGxlIEFFM2IzMTRBIHdhcyByZW1vdmVkCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiOTAwQU0iID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhOTAwQU0iLCJBRTFiOTAwQU0iKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjEwM0IiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhMTAzQiIsIkFFM2IxMDNCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIxOThCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTE5OEIiLCJBRTNiMTk4QiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjM0QiIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFM2EyMzRCIiwiQUUzYjIzNEIiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjI5NUIiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhMjk1QiIsIkFFM2IyOTVCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIzMTRCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTMxNEIiLCJBRTNiMzE0QiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiOTAwQk0iID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhOTAwQk0iLCJBRTFiOTAwQk0iKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjE0M0EiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJhMTQzQSIsIkFFMmIxNDNBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyMDBBIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYjIwMEEiKSksIG5hLnJtID0gVFJVRSkpICU+JSAjIEFFMmEyMDBBIHdhcyByZW1vdmVkCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjM3QSIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFMmEyMzdBIiwiQUUyYjIzN0EiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjI0N0EiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJhMjQ3QSIsIkFFMmIyNDdBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyNjdBIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYTI2N0EiLCJBRTJiMjY3QSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiOTAwQU4iID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJhOTAwQU4iKSksIG5hLnJtID0gVFJVRSkpICU+JSAjIEFFMmI5MDBBTiB3YXMgcmVtb3ZlZAogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjE0M0IiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJhMTQzQiIsIkFFMmIxNDNCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyMDBCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYjIwMEIiKSksIG5hLnJtID0gVFJVRSkpICU+JSAjIEFFMmEyMDBCIHdhcyByZW1vdmVkCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjM3QiIgPSByb3dNZWFucyhzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFMmEyMzdCIiwiQUUyYjIzN0IiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjI0N0IiID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJhMjQ3QiIsIkFFMmIyNDdCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyNjdCIiA9IHJvd01lYW5zKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYjI2N0IiKSksIG5hLnJtID0gVFJVRSkpICU+JSAjIEFFMmEyNjdCIHdhcyByZW1vdmVkCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiOTAwQk4iID0gcm93TWVhbnMoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJiOTAwQk4iKSksIG5hLnJtID0gVFJVRSkpICMgQUUyYTkwMEJOIHdhcyByZW1vdmVkCgpzaGFubm9uc19tZWFuIDwtIHNoYW5ub25zX21lYW5bLHVuaXF1ZShtZXRhZGF0YSRSZXBsaWNhdGUpXQoKc2hhbm5vbnNfbWVhbgpgYGAKCkdldCBzdGQgZGV2aWF0aW9uIGZvciBlYWNoIGNvcnJlc3BpbmRpbmcgbWVhbgpgYGB7cn0Kc2hhbm5vbnNfc2QgPC0gIAogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjEwM0EiID0gc2Qoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhMTAzQSIsIkFFM2IxMDNBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIxOThBIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYjE5OEEiKSksIG5hLnJtID0gVFJVRSkpICAlPiUgIyBTYW1wbGUgQUUzYTE5OEEgd2FzIHJlbW92ZWQKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyMzRBIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTIzNEEiLCJBRTNiMjM0QSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjk1QSIgPSBzZChzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFM2EyOTVBIiwiQUUzYjI5NUEiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjMxNEEiID0gc2Qoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhMzE0QSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lICAjIFNhbXBsZSBBRTNiMzE0QSB3YXMgcmVtb3ZlZAogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjkwMEFNIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTkwMEFNIiwiQUUxYjkwMEFNIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIxMDNCIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTEwM0IiLCJBRTNiMTAzQiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMTk4QiIgPSBzZChzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFM2ExOThCIiwiQUUzYjE5OEIiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjIzNEIiID0gc2Qoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTNhMjM0QiIsIkFFM2IyMzRCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyOTVCIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTI5NUIiLCJBRTNiMjk1QiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMzE0QiIgPSBzZChzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFM2EzMTRCIiwiQUUzYjMxNEIiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjkwMEJNIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUzYTkwMEJNIiwiQUUxYjkwMEJNIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIxNDNBIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYTE0M0EiLCJBRTJiMTQzQSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjAwQSIgPSBzZChzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFMmIyMDBBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUgIyBBRTJhMjAwQSB3YXMgcmVtb3ZlZAogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjIzN0EiID0gc2Qoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJhMjM3QSIsIkFFMmIyMzdBIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyNDdBIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYTI0N0EiLCJBRTJiMjQ3QSIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjY3QSIgPSBzZChzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFMmEyNjdBIiwiQUUyYjI2N0EiKSksIG5hLnJtID0gVFJVRSkpICU+JQogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjkwMEFOIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYTkwMEFOIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUgIyBBRTJiOTAwQU4gd2FzIHJlbW92ZWQKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIxNDNCIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYTE0M0IiLCJBRTJiMTQzQiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjAwQiIgPSBzZChzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFMmIyMDBCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUgIyBBRTJhMjAwQiB3YXMgcmVtb3ZlZAogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjIzN0IiID0gc2Qoc2VsZWN0KGRhdGEuZnJhbWUoc2hhbm5vbnMpLCBjKCJBRTJhMjM3QiIsIkFFMmIyMzdCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBtdXRhdGUoZGF0YS5mcmFtZShzaGFubm9ucyksICIyNDdCIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYTI0N0IiLCJBRTJiMjQ3QiIpKSwgbmEucm0gPSBUUlVFKSkgJT4lCiAgbXV0YXRlKGRhdGEuZnJhbWUoc2hhbm5vbnMpLCAiMjY3QiIgPSBzZChzZWxlY3QoZGF0YS5mcmFtZShzaGFubm9ucyksIGMoIkFFMmIyNjdCIikpLCBuYS5ybSA9IFRSVUUpKSAlPiUgIyBBRTJhMjY3QiB3YXMgcmVtb3ZlZAogIG11dGF0ZShkYXRhLmZyYW1lKHNoYW5ub25zKSwgIjkwMEJOIiA9IHNkKHNlbGVjdChkYXRhLmZyYW1lKHNoYW5ub25zKSwgYygiQUUyYjkwMEJOIikpLCBuYS5ybSA9IFRSVUUpKSAjIEFFMmE5MDBCTiB3YXMgcmVtb3ZlZAoKc2hhbm5vbnNfc2QgPC0gc2hhbm5vbnNfc2RbLHVuaXF1ZShtZXRhZGF0YSRSZXBsaWNhdGUpXQpzaGFubm9uc19zZFtpcy5uYShzaGFubm9uc19zZCldIDwtIDAKCnNoYW5ub25zX3NkCmBgYAoKCgojIyBQcmVwYXJlIGRhdGEgZm9yIHBsb3R0aW5nCmBgYHtyfQojIFBpdm90IGxvbmdlcgpzaGFubm9uc19tZWFuIDwtIHBpdm90X2xvbmdlcihzaGFubm9uc19tZWFuLCBjb2xzID0gdW5pcXVlKG1ldGFkYXRhJFJlcGxpY2F0ZSksIG5hbWVzX3RvID0gIlJlcGxpY2F0ZSIsIHZhbHVlc190byA9ICJTaGFubm9ucyIpCnNoYW5ub25zX3NkIDwtIHBpdm90X2xvbmdlcihzaGFubm9uc19zZCwgY29scyA9IHVuaXF1ZShtZXRhZGF0YSRSZXBsaWNhdGUpLCBuYW1lc190byA9ICJSZXBsaWNhdGUiLCB2YWx1ZXNfdG8gPSAiU3REZXYiKQoKIyBKb2luIG1ldGFkYXRhCnNoYW5ub25zX21lYW4gPC0gbGVmdF9qb2luKHNoYW5ub25zX21lYW4sIHNoYW5ub25zX3NkKQoKIyBleHBvcnQgdGhpcyBmb3IgdGFibGUgaW4gbWFudXNjcmlwdAp3cml0ZV9jc3Yoc2hhbm5vbnNfbWVhbiwgIkZpZ3VyZXMvc2hhbm5vbnMuY3N2IikKCiMgYWRkIG1ldGFkYXRhIGZvciBwbG90dGluZwpzaGFubm9uc19tZWFuIDwtIGxlZnRfam9pbihzaGFubm9uc19tZWFuLCB1bmlxdWUoc2VsZWN0KG1ldGFkYXRhLCBjKCJSZXBsaWNhdGUiLCAiRGVwdGgiLCAiU2l6ZUZyYWN0aW9uIiwgIlNlYXNvbiIsICJPeENvbmQiLCAiRmx1b3Jlc2NlbmNlIiwgIkJlYW1BdHQiLCAiTzIiLCAiVGVtcCIsICJTYWxpbml0eSIsICJIMlMiLCAiUGFydGljdWxhdGVTIiwgIlRaVlMiLCAiQ0g0IiwgIk5PMyIsICJOTzIiLCAiTkg0IiwgIlBPNCIsICJDaGVtb2F1dG90cm9waHkiLCAiQk5QIiwgIk1pY3JvQWJ1bih4MTBeOCBMXi0xKSIsICJGbGFnQWJ1bih4MTBeNSBMLTEpIiwgIlZMUCh4MTBeOCBMLTEpIikpKSwgYnkgPSAiUmVwbGljYXRlIikKCnNoYW5ub25zX21lYW4KYGBgCgojIyBQbG90CmBgYHtyfQojIHJlb3JkZXIgc29tZSBmYWN0b3JzIHRvIG1ha2UgdGhlbSBwbG90IGluIHRoZSBvcmRlciBJIHdhbnQKc2hhbm5vbnNfbWVhbiRPeENvbmQgPC0gZmFjdG9yKHNoYW5ub25zX21lYW4kT3hDb25kLCBsZXZlbHMgPSBjKCJPeHljbGluZSIsICJTaGFsbG93QW5veGljIiwgIkV1eGluaWMiKSkKc2hhbm5vbnNfbWVhbiRTaXplRnJhY3Rpb24gPC0gZmFjdG9yKHNoYW5ub25zX21lYW4kU2l6ZUZyYWN0aW9uLCBsZXZlbHMgPSBjKCJQQSIsICJGTCIpKQoKeXRpdGxlIDwtIGV4cHJlc3Npb24ocGFzdGUoIlNoYW5ub24ncyBEaXZlcnNpdHkgSW5kZXggKCIsaXRhbGljKCJIJyIpLCIpIikpCgpzaGFubm9uc3Bsb3QgPC0gZ2dwbG90KHNoYW5ub25zX21lYW4sIGFlcyh4ID0gRGVwdGgsIHkgPSBTaGFubm9ucywgY29sb3IgPSBPeENvbmQpKSArCiAgZ2VvbV9saW5lKHNpemU9MSwgY29sb3IgPSAiYmxhY2siLCBsdHkgPSAiZG90dGVkIikgKwogIGdlb21fcG9pbnQoc2l6ZT0zLCBzaGFwZSA9IGMoMTYpKSArCiAgbGFicyh5PSB5dGl0bGUsIHggPSAiRGVwdGggKG0pIikgKwogIHNjYWxlX3hfcmV2ZXJzZShleHBhbmQgPSBjKDAsIDApKSArCiAgY29vcmRfZmxpcCh4bGltID0gYyg5MTAsIDEwMCkpICsgCiAgdGhlbWVfYncoKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IiwKICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBsZWdlbmQudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIHN0cmlwLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDgpLAogICAgICAgIGxlZ2VuZC5tYXJnaW49bWFyZ2luKDAsMCwwLDIpKSArCiAgZmFjZXRfd3JhcChTZWFzb25+U2l6ZUZyYWN0aW9uLCBkcm9wPSBUUlVFLCBuY29sID0gNCkgKwogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjKCJibHVlIiwgInJlZCIsICJicm93bjQiKSkgKwogIGxhYnMoY29sb3IgPSAiUmVkb3ggQ29uZGl0aW9uIikKCnNoYW5ub25zcGxvdAoKCmBgYAoKRXhwb3J0IFBsb3QKYGBge3J9CiMgc2V0IGV4cGxpY2l0IHBhbmVsIHNpemUgc28gdGhleSB3aWxsIGJlIGNvbnNpc3RlbnQgZm9yIGFsbCBmaWd1cmVzCnNoYW5ub25zcGxvdCA8LSBzZXRfcGFuZWxfc2l6ZShzaGFubm9uc3Bsb3QsICB3aWR0aCAgPSB1bml0KDIyLCAibW0iKSwgaGVpZ2h0ID0gdW5pdCg2MCwgIm1tIikpICAKCmdnc2F2ZShmaWxlbmFtZSA9ICJGaWd1cmVzL3NoYW5ub25zcGxvdC5lcHMiLCBwbG90ID0gc2hhbm5vbnNwbG90LCB1bml0cyA9IGMoIm1tIiksIHdpZHRoID0gMTgwLCBoZWlnaHQgPSA4MCwgZHBpID0gMzAwKQoKYGBgCgoKCgojIE9yZGluYXRpb25zCgojIyBGaWx0ZXIgCk1jTXVyZGllIGFuZCBIb2xtZXMgKDIwMTMpIGZpbHRlciBvdXQgdGF4YSB0aGF0IHdlcmUgbm90IHNlZW4gd2l0aCBtb3JlIHRoYW4gMyBjb3VudHMgaW4gYXQgbGVhc3QgMjAlIG9mIHRoZSBzYW1wbGVzLiBBbHNvIGFkZCBhIHBzZWR1b2NvdW50IG9mIDEgdG8gYWxsIGNvdW50cy4gVGhpcyBpcyBzbyB0aGF0IGxhdGVyIHdoZW4gd2UgZG8gZGlmZmVyZW50IGNhbGN1bGF0aW9ucyAobG9nLCBkaXZpc2lvbiwgZXRjKSB3ZSBkb24ndCBnZXQgYmFjayBlcnJvcnMgZHVlIHRvIHplcm9lcwpgYGB7cn0KcHNfZmlsdGVyZWQgPSBmaWx0ZXJfdGF4YShwcywgZnVuY3Rpb24oeCkgc3VtKHggPiAzKSA+ICgwLjIqbGVuZ3RoKHgpKSwgVFJVRSkgCnBzX2ZpbHRlcmVkIDwtIHRyYW5zZm9ybV9zYW1wbGVfY291bnRzKHBzX2ZpbHRlcmVkLCBmdW5jdGlvbih4KSB4KzEpCiMgQWxzbyBtYWtlIGEgZmlsdGVyZWQgdmVyc2lvbiBvZiB0aGUgcmVsYXRpdmUgYWJ1bmRhbmNlIGNvdW50IHRhYmxlIChmb3IgcGxvdHRpbmcgcHVycG9zZXMpCnBzX3JhX2ZpbHRlcmVkIDwtIHBydW5lX3RheGEodGF4YV9uYW1lcyhwc19maWx0ZXJlZCkscHNfcmEpICMgcHJ1bmUgZnJvbSBwc19yYSBvYmplY3QgKHJlbGF0aXZlIGFidW5kYW5jZXMpCiMgY2hlY2sgbnVtYmVyIG9mIEFTVnMgaW4gZWFjaApwcwpwc19maWx0ZXJlZApwc19yYV9maWx0ZXJlZApgYGAKUmVkdWNlZCBmcm9tIDEzLDQyNyB0byA5NzkgQVNWcwoKCgoKIyMgVGVzdCBmb3IgY29tcG9zaXRpb25hbGl0eQpiYXNlZCBvbiBDb2VuZW4gZXQgYWwuIHR1dG9yaWFscyBmb3IgY2x1c3RlcmluZy4gU2VlIFtyZXBvXShodHRwczovL2dpdGh1Yi5jb20vV2VpdHpHcm91cC9hbmFseXppbmdfbWljcm9iaW9tZV90aW1lc2VyaWVzKQpgYGB7cn0KIyBFc3RpbWF0ZSBjb3ZhcmlhbmNlIG1hdHJpeCBmb3IgT1RVcwpjb3ZhcmlhbmNlX21hdHJpeCA8LSBhcy5tYXRyaXgob3R1X3RhYmxlKHBzX2ZpbHRlcmVkKSkgJSolIHQob3R1X3RhYmxlKHBzX2ZpbHRlcmVkKSkKIyAlKiUgPSBtYXRyaXggbXVsdGlwbGljYXRpb24gc2lnbiBpbiBSOyB1c2VkIGhlcmUgdG8gbXVsdGlwbHkgT1RVL0FTViBkYXRhIG1hdHJpeCB0byBpdHNlbGYgdG8gZXN0aW1hdGUgY292YXJpYW5jZS4KIyBFdmFsdWF0ZSBkZXRlcm1pbmFudCBvZiBjb3ZhcmlhbmNlIG1hdHJpeApjb3ZfZGV0ZXJtaW5hbnQgPC0gZGV0KGNvdmFyaWFuY2VfbWF0cml4KQpjb3ZfZGV0ZXJtaW5hbnQKYGBgClRoZSBkZXRlcm1pbmFudCBvZiB0aGUgY292YXJpYW5jZSBtYXRyaXggKHdoYXQgd2UganVzdCBjYWxjdWxhdGVkKSBpcyBlcXVpdmFsZW50IHRvIHRoZSBwcm9kdWN0IG9mIHRoZSBwcm9wb3J0aW9uIG9mIHZhcmlhbmNlIGV4cGxhaW5lZCBieSBldmVyeSBQQ0EgYXhpcy4gSWYgdGhlIGRldGVybWluYW50IGlzIDAsIHRoYXQgbWVhbnMgdGhlcmUgaXMgYW4gYXhpcyB3aGljaCBleHBsYWlucyAwIHZhcmlhbmNlIHRoYXQgd2UgY2FuJ3Qgc2VwYXJhdGUgZnJvbSB0aGUgb3RoZXIgYXhlcy4gVGhpcyBtZWFucyB0aGUgZGF0YSBuZWVkIHRvIGJlIHRyYW5zZm9ybWVkIHRvIGJlIHN1aXRhYmxlIGZvciBQQ0EuIAoKCiMjIFBDQQpQQ0EgaXMgZXNzZW50aWFsbHkgYSB0eXBlIG9mIFBDb0EgIHVzaW5nIHRoZSBFdWNsaWRlYW4gZGlzdGFuY2UgbWF0cml4IGFzIGlucHV0LiBXaGVuIGNvbWJpbmVkIHdpdGggYSBsb2ctcmF0aW8gdHJhbnNmb3JtYXRpb24gb2YgdGhlIGNvdW50IHRhYmxlLCB0aGlzIGlzIGRlZW1lZCBhcHByb3ByaWF0ZSBmb3IgKmNvbXBvc2l0aW9uYWwqIGRhdGFzZXRzLgoKRmlyc3QgZG8gYSAqKkNMUiwgY2VudGVyZWQgbG9nIHJhdGlvKiogdHJhbnNmb3JtYXRpb24gb2YgdGhlIGFic29sdXRlIGFidW5kYW5jZSBkYXRhIChhZnRlciBmaWx0ZXJpbmcpLCBhcyBzdWdnZXN0ZWQgYnkgW0dsb29yIGV0IGFsLiAyMDE3XShodHRwczovL3d3dy5mcm9udGllcnNpbi5vcmcvYXJ0aWNsZXMvMTAuMzM4OS9mbWljYi4yMDE3LjAyMjI0L2Z1bGwpIGFuZCBjaGVjayB0aGUgZGV0ZXJtaW5hbnQgb2YgdGhpcyBtYXRyaXguIENvbXBhcmUgaXQgdG8gdGhlIGRldGVybWluYW50IHdpdGhvdXQgYW55IHRyYW5zZm9ybWF0aW9uLgoKYGBge3J9CiMgRXN0aW1hdGUgY292YXJpYW5jZSBtYXRyaXggZm9yIGFic29sdXRlIGFidW5kYW5jZSBBU1YgdGFibGUKY292YXJpYW5jZV9tYXRyaXggPC0gYXMubWF0cml4KG90dV90YWJsZShwc19maWx0ZXJlZCkpICUqJSB0KG90dV90YWJsZShwc19maWx0ZXJlZCkpCgojIEV2YWx1YXRlIGRldGVybWluYW50IG9mIGNvdmFyaWFuY2UgbWF0cml4CmNvdl9kZXRlcm1pbmFudCA8LSBkZXQoY292YXJpYW5jZV9tYXRyaXgpCgojIEVzdGltYXRlIGNvdmFyaWFuY2UgbWF0cml4IGZvciBDTFItdHJhbnNmb3JtZWQgQVNWIHRhYmxlCmNscl9hc3ZfdGFibGVfcHNfZmlsdGVyZWQgPC0gZGF0YS5mcmFtZShjb21wb3NpdGlvbnM6OmNscih0KG90dV90YWJsZShwc19maWx0ZXJlZCkpKSkKCiMjIENoZWNrIG5ldyBkZXRlcm1pbmFudCBvZiBjbHIgdHJhbnNmb3JtZWQgdGFibGUKbmV3X2NvdmRldCA8LSBkZXQoYXMubWF0cml4KGNscl9hc3ZfdGFibGVfcHNfZmlsdGVyZWQpICUqJSB0KGNscl9hc3ZfdGFibGVfcHNfZmlsdGVyZWQpKQoKIyBDb21wYXJlCmNvdl9kZXRlcm1pbmFudCAjT3JpZ2luYWwgQ291bnQgRGF0YQpuZXdfY292ZGV0ICMgTmV3CmBgYApUaGUgZGV0ZXJtaW5hbnQgb2YgdGhlIENMUi10cmFuc2Zvcm1lZCB0YWJsZSBpcyBub3QgemVybywgc28gd2UgY2FuIHByb2NlZWQgd2l0aCBQQ0Egb2YgdGhlIENMUi10cmFuc2Zvcm1lZCBkYXRhLiAKCkdlbmVyYXRlIHRoZSBQQ0EgYW5kIHZpc3VhbGl6ZSBheGVzCmBgYHtyfQojIEdlbmVyYXRlIGEgUHJpbmNpcGxlIENvbXBvbmVudCBBbmFseXNpcyAoUENBKSBhbmQgZXZhbHVhdGVkIGJhc2VkIG9uIHRoZSBlaWdlbiBkZWNvbXBvc2l0aW9uIGZyb20gc2FtcGxlIGNvdmFyaWFuY2UgbWF0cml4LiAKbG9ncmF0X3BjYSA8LSBwcmNvbXAoY2xyX2Fzdl90YWJsZV9wc19maWx0ZXJlZCkgCiMgTk9URS0gdGhpcyBpcyBlcXVpdmFsZW50IHRvIGZpcnN0IG1ha2luZyBhIEV1Y2xpZGVhbiBkaXN0YW5jZSBtYXRyaXggdXNpbmcgdGhlIENMUiBkYXRhIHRhYmxlIGFuZCB0aGVuIHJ1bm5pbmcgYSBQQ29BLiBBIEV1Y2xpZGVhbiBkaXN0YW5jZSBtYXRyaXggb2YgYSBsb2ctdHJhbnNmb3JtZWQgZGF0YSB0YWJsZSA9IGFuIEFpdGNoaXNvbiBkaXN0YW5jZSBtYXRyaXguIFNvIHRoaXMgaXMgZXF1aXZhbGVudCB0byB0aGUgY29tcG9zaXRpb25hbCBtZXRob2RzIGxpc3RlZCBpbiBHbG9vciBldCBhbC4KIyBWaXN1YWwgcmVwcmVzZW50YXRpb24gd2l0aCBhIHNjcmVlcGxvdApsb2dyYXRfdmFyaWFuY2VzIDwtIGFzLmRhdGEuZnJhbWUobG9ncmF0X3BjYSRzZGV2XjIvc3VtKGxvZ3JhdF9wY2Ekc2Rldl4yKSkgJT4lICNFeHRyYWN0IGF4ZXMKICAjIEZvcm1hdCB0byBwbG90CiAgc2VsZWN0KFBlcmNWYXIgPSAnbG9ncmF0X3BjYSRzZGV2XjIvc3VtKGxvZ3JhdF9wY2Ekc2Rldl4yKScpICU+JSAKICByb3duYW1lc190b19jb2x1bW4odmFyID0gIlBDYXhpcyIpICU+JSAKICBkYXRhLmZyYW1lCmhlYWQobG9ncmF0X3ZhcmlhbmNlcykKIyBQbG90IHNjcmVlcGxvdApnZ3Bsb3QobG9ncmF0X3ZhcmlhbmNlcywgYWVzKHggPSBhcy5udW1lcmljKFBDYXhpcyksIHkgPSBQZXJjVmFyKSkgKyAKICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgZmlsbCA9ICJncmV5IiwgY29sb3IgPSAiYmxhY2siKSArCiAgdGhlbWVfbWluaW1hbCgpICsKICB0aGVtZShheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KGNvbG9yID0gImJsYWNrIiwgZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDEwKSwKICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChjb2xvciA9ICJibGFjayIsIGZhY2UgPSAiYm9sZCIpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF9ibGFuaygpKSArCiAgbGFicyh4ID0gIlBDIGF4aXMiLCB5ID0gIiUgVmFyaWFuY2UiLCB0aXRsZSA9ICJMb2ctUmF0aW8gUENBIFNjcmVlcGxvdCwgQ0xSIFRyYW5mb3JtYXRpb24iKQpgYGAKRmlyc3QgdHdvIGF4ZXMgZXhwbGFpbiBhIGRlY2VudCBwcm9wb3J0aW9uIG9mIHZhcmlhbmNlOiAyNC44ICsgMTMuNCA9IDM4LjIKCgoKVmlzdWFsaXplIHRoZSBQQ0EKYGBge3J9CiMgZXh0cmFjdCBQQyB2YWx1ZXMKcGNhX2xvZ3JhdF9mcmFtZSA8LSBkYXRhLmZyYW1lKGxvZ3JhdF9wY2EkeCkgJT4lIAogIHJvd25hbWVzX3RvX2NvbHVtbih2YXIgPSAiU2FtcGxlIE5hbWUiKQojIE1lcmdlIG1ldGFkYXRhIGludG8gdGhlIHBjYSBkYXRhIHRhYmxlCnBjYV9sb2dyYXRfZnJhbWUgPC0gbGVmdF9qb2luKHBjYV9sb2dyYXRfZnJhbWUsIG1ldGFkYXRhLCBieSA9ICJTYW1wbGUgTmFtZSIpCgoKIyByZW9yZGVyIHNvbWUgZmFjdG9ycyB0byBtYWtlIHRoZW0gcGxvdCBpbiB0aGUgb3JkZXIgSSB3YW50CnBjYV9sb2dyYXRfZnJhbWUgPC0gcGNhX2xvZ3JhdF9mcmFtZSAlPiUKICBtdXRhdGUoU2l6ZUZyYWN0aW9uID0gZmN0X3JlbGV2ZWwoU2l6ZUZyYWN0aW9uLCAiUEEiLCAiRkwiKSkgJT4lCiAgbXV0YXRlKE94Q29uZCA9IGZjdF9yZWxldmVsKE94Q29uZCwgIk94eWNsaW5lIiwgIlNoYWxsb3dBbm94aWMiLCAiRXV4aW5pYyIpKQpwY2FfbG9ncmF0X2ZyYW1lCgoKCiMgUGxvdCBQQ0Egd2l0aCBSZWRveCBSZWdpbWUgYW5kIFNpemUgZnJhY3Rpb24KcGNhX2xvZ3JhdF9wbG90IDwtIGdncGxvdChwY2FfbG9ncmF0X2ZyYW1lLCBhZXMoeCA9IFBDMSwgeSA9IFBDMiwgY29sb3IgPSBPeENvbmQpKSArCiAgZ2VvbV9wb2ludChhZXMoc2hhcGUgPSBTaXplRnJhY3Rpb24pLCBzaXplID0gNCkgKwogIHlsYWIocGFzdGUwKCdQQzIgJywgcm91bmQobG9ncmF0X3ZhcmlhbmNlc1syLDJdKjEwMCwyKSwnJScpKSArICNFeHRyYWN0IHkgYXhpcyB2YWx1ZSBmcm9tIHZhcmlhbmNlCiAgeGxhYihwYXN0ZTAoJ1BDMSAnLCByb3VuZChsb2dyYXRfdmFyaWFuY2VzWzEsMl0qMTAwLDIpLCclJykpICsgI0V4dHJhY3QgeCBheGlzIHZhbHVlIGZyb20gdmFyaWFuY2UKICBnZ3RpdGxlKCdDTFItRXVjbGlkZWFuIFBDQScpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygiYmx1ZSIsICJyZWQiLCAiYnJvd240IikpICsKICBjb29yZF9maXhlZChyYXRpbyA9IDEpICsKICB0aGVtZV9idygpCgpwY2FfbG9ncmF0X3Bsb3QKYGBgCgoKIyMjIEVudkZpdApVc2UgdmVnYW4ncyBlbnZmaXQgdG8gZGV0ZXJtaW5lIHJlbGF0aW9uc2hpcHMgYmV0d2VlbiB0aGUgb3JkaW5hdGlvbiBhbmQgZW52aXJvbm1lbnRhbCB2YXJpYWJsZXMKCmBgYHtyfQojIG1ha2UgbWV0YWRhdGFfb3JkaW5hdGlvbnMsIHRyaW1tZWQgZnJvbSBtZXRhZGF0YSB0byBvbmx5IHNhbXBsZXMgdGhhdCBhcmUgaW4gUENBIAptZXRhZGF0YV9vcmRpbmF0aW9ucyA8LSBtZXRhZGF0YVttZXRhZGF0YSRgU2FtcGxlIE5hbWVgICVpbiUgc2FtcGxlX2RhdGEocHNfZmlsdGVyZWQpJFNhbXBsZS5OYW1lLF0KCiMgcmVvcmRlciBzb21lIGZhY3RvcnMgaW4gbWV0YWRhdGFfb3JkaW5hdGlvbnMgdG8gbWFrZSB0aGVtIHBsb3QgaW4gdGhlIG9yZGVyIEkgd2FudAptZXRhZGF0YV9vcmRpbmF0aW9ucyA8LSBtZXRhZGF0YV9vcmRpbmF0aW9ucyAlPiUKICBtdXRhdGUoU2l6ZUZyYWN0aW9uID0gZmN0X3JlbGV2ZWwoU2l6ZUZyYWN0aW9uLCAiUEEiLCAiRkwiKSkgJT4lCiAgbXV0YXRlKE94Q29uZCA9IGZjdF9yZWxldmVsKE94Q29uZCwgIk94eWNsaW5lIiwgIlNoYWxsb3dBbm94aWMiLCAiRXV4aW5pYyIpKQoKIyBzb3J0IGNscl9hc3ZfdGFibGVfcHNfZmlsdGVyZWQgaW4gc2FtZSBvcmRlciBhcyBtZXRhZGF0YSAKY2xyX2Fzdl90YWJsZV9wc19maWx0ZXJlZCA8LSBjbHJfYXN2X3RhYmxlX3BzX2ZpbHRlcmVkW21ldGFkYXRhX29yZGluYXRpb25zJCJTYW1wbGUgTmFtZSIsXQoKIyByZS1ydW4gdGhlIFBDQSBvbiBjbHJfYXN2X3RhYmxlX3BzX2ZpbHRlcmVkIApsb2dyYXRfcGNhIDwtIHByY29tcChjbHJfYXN2X3RhYmxlX3BzX2ZpbHRlcmVkKSAKCgojIHJlbW92ZSBtZXRhZGF0YSB0aGF0IGRvbid0IG1ha2Ugc2Vuc2UgdG8gdGVzdCAoZWcuIE5DQkkgc2FtcGxlIElEcywgZXRjLiksICByZXBldGl0aXZlIHZhcmlhYmxlcyAoZWcuIFBhcnRpY3VsYXRlIFMgYW5kIFRaVlMpLCBhbmQgdGhvc2UgdGhhdCBkaWRuJ3Qgd29yayBvbiBib3RoIGNydWlzZXMgKGxpa2UgZmx1b3Jlc2NlbmNlLCBiZWFtIGF0dGVudWF0aW9uLCBldGMpCm1ldGFkYXRhX29yZGluYXRpb25zIDwtIHNlbGVjdChtZXRhZGF0YV9vcmRpbmF0aW9ucywgLVJlcGxpY2F0ZSwgLUZsdW9yZXNjZW5jZSwgLUJlYW1BdHQsIC1UWlZTLCAtUnVuLCAtIkFzc2F5IFR5cGUiLCAtQXZnU3BvdExlbiwgLUJhc2VzLCAtQmlvUHJvamVjdCwgLUJpb1NhbXBsZSwgLUJpb1NhbXBsZU1vZGVsLCAtQnl0ZXMsIC0iQ2VudGVyIE5hbWUiLCAtQ29sbGVjdGlvbl9EYXRlLCAtQ29uc2VudCwgLSJEQVRBU1RPUkUgZmlsZXR5cGUiLCAtIkRBVEFTVE9SRSBwcm92aWRlciIsIC0iREFUQVNUT1JFIHJlZ2lvbiIsIC1FeHBlcmltZW50LCAtZ2VvX2xvY19uYW1lX2NvdW50cnksIC1nZW9fbG9jX25hbWVfY291bnRyeV9jb250aW5lbnQsIC1nZW9fbG9jX25hbWUsIC1JbnN0cnVtZW50LCAtaXNvbGF0aW9uX3NvdXJjZSwgLWxhdF9sb24sIC0iTGlicmFyeSBOYW1lIiwgLUxpYnJhcnlMYXlvdXQsIC1MaWJyYXJ5U2VsZWN0aW9uLCAtTGlicmFyeVNvdXJjZSwgLU9yZ2FuaXNtLCAtUGxhdGZvcm0sIC1SZWxlYXNlRGF0ZSwgLXNhbXBfY29sbGVjdF9kZXZpY2UsIC0iU1JBIFN0dWR5IiwgLURlcHRoX20sIC1yZXBsaWNhdGUsIC1zaXplX2ZyYWN0aW9uLCAtQ0g0X3VNLCAtSDJTX1VtLCAtb3h5Z2VuLCAtT3h5Z2VuX3VNLCAtUGFydGljdWxhdGVfU3VsZnVyX3VNLCAtc2FsaW5pdHksIC1UZW1wZXJhdHVyZV9kZWdyZWVfQywgLVRaVlNfdU0pCgojIGNoYW5nZSB0aGUgbmFtZSBvZiBzb21lIHZhcmlhYmxlcyB0byBtYWtlIHRoZW0gZWFzaWVyIHRvIHBsb3QKbWV0YWRhdGFfb3JkaW5hdGlvbnMgPC0gcmVuYW1lKG1ldGFkYXRhX29yZGluYXRpb25zLCBQYXJ0UyA9IFBhcnRpY3VsYXRlUywgTWljcm9BYnVuID0gIk1pY3JvQWJ1bih4MTBeOCBMXi0xKSIsICBGbGFnQWJ1biA9ICJGbGFnQWJ1bih4MTBeNSBMLTEpIiwgVkxQQWJ1biA9ICJWTFAoeDEwXjggTC0xKSIsIENoZW1vID0gIkNoZW1vYXV0b3Ryb3BoeSIpCgoKIyBmaXQgZW52aXJvbm1lbnRhbCBmYWN0b3JzIGFuZCBzYXZlIHN0YXRzIG91dHB1dApzZXQuc2VlZCgxMDAxMCkKcGNhX2VudmZpdCA8LSBlbnZmaXQobG9ncmF0X3BjYSwgbWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBlcm11dGF0aW9ucyA9IDEwMDApCmNhcHR1cmUub3V0cHV0KHBjYV9lbnZmaXQsIGZpbGUgPSAic3RhdHNfcmVzdWx0cy9QQ0FfZW52Zml0X3N0YXQudHh0IikKcGNhX2VudmZpdAojIHNpZ25pZmljYW50IHZlY3RvciB2YXJpYWJsZXMsIGF0IHRoZSBwPDAuMDEgbGV2ZWw6IE8yLCBUZW1wLCBTYWxpbml0eSwgUGFydGljdWxhdGUgUywgTk8zLCBQTzQsIENoZW1vYXV0b3Ryb3BoeSwgRmxhZ2VsbGF0ZSBBYnVuZGFuY2UKIyBzaWduaWZpY2FudCBjZW50cm9pZCB2YXJpYWJsZXMgYXQgdGhlIHA8MC4wMSBsZXZlbDogT3hDb25kIGFuZCBTaXplRnJhY3Rpb24KCiMgZml0IHNwZWNpZXMgYW5kIHNhdmUgc3RhdHMgb3V0cHV0CnBjYV9zcHBmaXQgPC0gZW52Zml0KGxvZ3JhdF9wY2EsIGNscl9hc3ZfdGFibGVfcHNfZmlsdGVyZWQsIHBlcm11dGF0aW9ucyA9IDEwMDApCmNhcHR1cmUub3V0cHV0KHBjYV9zcHBmaXQsIGZpbGUgPSAic3RhdHNfcmVzdWx0cy9QQ0Ffc3BwZml0X3N0YXQudHh0IikKcGNhX3NwcGZpdApgYGAKTWFueSBvZiB0aGUgdHlwaWNhbCB2YXJpYWJsZXMgdGhhdCBpbmRpY2F0ZSByZWRveCBjb25kaXRpb24gYXJlIHNpZ25pZmljYW50IChPMiwgTk8zLCBQYXJ0aWN1bGF0ZSBTLGV0YyksIHBsdXMgc2l6ZSBmcmFjdGlvbi4KVGhlcmUgYXJlIG1hbnkgc3BlY2llcyB0aGF0IGFyZSBzaWcKCk1ha2UgaW5kaXZpZHVhbCBlbnZmaXQgb2JqZWN0cyBmb3IgYWxsIHRoZSB2ZWN0b3JzIHRoYXQgd2lsbCBiZSBwbG90dGVkCmBgYHtyfQojIHZlY3RvcnMKcGNhX2VudmZpdF9PMiA8LSBlbnZmaXQobG9ncmF0X3BjYX5PMiwgbWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBlcm11dGF0aW9ucyA9IDEwMDApCnBjYV9lbnZmaXRfcGFydFMgPC0gZW52Zml0KGxvZ3JhdF9wY2F+UGFydFMsIG1ldGFkYXRhX29yZGluYXRpb25zLCBwZXJtdXRhdGlvbnMgPSAxMDAwKQpwY2FfZW52Zml0X05PMyA8LSBlbnZmaXQobG9ncmF0X3BjYX5OTzMsIG1ldGFkYXRhX29yZGluYXRpb25zLCBwZXJtdXRhdGlvbnMgPSAxMDAwKQpwY2FfZW52Zml0X1BPNCA8LSBlbnZmaXQobG9ncmF0X3BjYX5QTzQsIG1ldGFkYXRhX29yZGluYXRpb25zLCBwZXJtdXRhdGlvbnMgPSAxMDAwKQpwY2FfZW52Zml0X3RlbXAgPC0gZW52Zml0KGxvZ3JhdF9wY2F+VGVtcCwgbWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBlcm11dGF0aW9ucyA9IDEwMDApCnBjYV9lbnZmaXRfc2FsIDwtIGVudmZpdChsb2dyYXRfcGNhflNhbGluaXR5LCBtZXRhZGF0YV9vcmRpbmF0aW9ucywgcGVybXV0YXRpb25zID0gMTAwMCkKcGNhX2VudmZpdF9jaGVtbyA8LSBlbnZmaXQobG9ncmF0X3BjYX5DaGVtbywgbWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBlcm11dGF0aW9ucyA9IDEwMDApCnBjYV9lbnZmaXRfRmxhZ0FidW4gPC0gZW52Zml0KGxvZ3JhdF9wY2F+RmxhZ0FidW4sIG1ldGFkYXRhX29yZGluYXRpb25zLCBwZXJtdXRhdGlvbnMgPSAxMDAwKQpgYGAKCgpOZXh0LCB0cmltIHRoZSBzcHBmaXQgdmVnYW4gb2JqZWN0IHRvIGp1c3QgaW5jbHVkZSB0aG9zZSBzcGVjaWVzIHdpdGggcjIgdmFsdWUgZ3JlYXRlciB0aGFuIDAuNjAKSSBnb3QgdGhpcyBmdW5jdGlvbiBmcm9tIFtoZXJlXShodHRwczovL3d3dy5yZXNlYXJjaGdhdGUubmV0L3Bvc3QvSG93X2RvX0lfc2V0X2N1dG9mZl9yX3ZhbHVlc19mb3JfcGxvdHRpbmdfYXJyb3dzX2Zyb21fZnVuY3Rpb25fZW52Zml0X2luX1IpLgpMYXRlciwgd2hlbiBwbG90dGluZywgSSBjYW4gYWxzbyB0cmltIGJ5IHAtdmFsdWUvCmBgYHtyfQojX19GVU5DVElPTjogc2VsZWN0LmVudmZpdF9fIwojIGZ1bmN0aW9uIChzZWxlY3QuZW52aXQpIGZpbHRlcnMgdGhlIHJlc3VsdGluZyBsaXN0IG9mIGZ1bmN0aW9uIChlbnZmaXQpIGJhc2VkIG9uIHRoZWlyIHAgdmFsdWVzLiBUaGlzIGFsbG93cyB0byBkaXNwbGF5IG9ubHkgc2lnbmlmaWNhbnQgdmFsdWVzIGluIHRoZSBmaW5hbCBwbG90LgojIGp1c3QgcnVuIHRoaXMKc2VsZWN0LmVudmZpdDwtZnVuY3Rpb24oZml0LCByLnNlbGVjdCl7ICNuZWVkcyB0d28gc29ydHMgb2YgaW5wdXQ6IGZpdD0gcmVzdWx0IG9mIGVudmZpdCwgci5zZWxlY3Q9IG51bWVyaWMsIGNvcnJlbGF0aW9uIG1pbmltdW0gdGhyZXNob2xkCmZvciAoaSBpbiAxOmxlbmd0aChmaXQkdmVjdG9ycyRyKSkgeyAjcnVuIGZvci1sb29wIHRocm91Z2ggdGhlIGVudGlyZSBsZW5ndGggb2YgdGhlIGNvbHVtbiByIGluIG9iamVjdCBmaXQkdmVjdG9ycyRyIHN0YXJ0aW5nIGF0IGk9MQppZiAoZml0JHZlY3RvcnMkcltpXTxyLnNlbGVjdCkgeyAjQ2hlY2sgd2V0aGVyIHI8ci5zZWxlY3QsIGkuZS4gaWYgdGhlIGNvcnJlbGF0aW9uIGlzIHdlYWtlciB0aGFuIHRoZSB0aHJlc2hvbGQgdmFsdWUuIENoYW5nZSB0aGlzIFBhcmFtZXRlciBmb3Igci1iYXNlZCBzZWxlY3Rpb24KZml0JHZlY3RvcnMkYXJyb3dzW2ksXT1OQSAjSWYgdGhlIGFib3ZlIHN0YXRlbWVudCBpcyBUUlVFLCBpLmUuIHIgaXMgc21hbGxlciB0aGFuIHIuc2VsZWN0LCB0aGVuIHRoZSBjb29yZGluYXRlcyBvZiB0aGUgdmVjdG9ycyBhcmUgc2V0IHRvIE5BLCBzbyB0aGV5IGNhbm5vdCBiZSBkaXNwbGF5ZWQKaT1pKzEgI2luY3JlYXNlIHRoZSBydW5uaW5nIHBhcmFtZXRlciBpIGZyb20gMSB0byAyLCBpLmUuIGNoZWNrIHRoZSBuZXh0IHZhbHVlIGluIHRoZSBjb2x1bW4gdW50aWwgZXZlcnkgdmFsdWUgaGFzIGJlZW4gY2hlY2tlZAp9ICNjbG9zZSBpZi1sb29wCn0gI2Nsb3NlIGZvci1sb29wCnJldHVybihmaXQpICNyZXR1cm4gZml0IGFzIHRoZSByZXN1bHQgb2YgdGhlIGZ1bmN0aW9uCn0gI2Nsb3NlIHRoZSBmdW5jdGlvbgoKcGNhX3NwcGZpdF90cmltPC1zZWxlY3QuZW52Zml0KHBjYV9zcHBmaXQsIDAuNikgCmBgYAoKCiMjIyMgUGxvdApDb21wbGljYXRlZCB0byBwbG90IHZlZ2FuIG91dHB1dCBpbiBnZ3Bsb3QuIFBsb3QgaW4gYmFzZSBSCmBgYHtyfQojIENvbnZlcnQgY2hhcmFjdGVycyBpbiBtZXRhZGF0YSB0byBmYWN0b3JzCm1ldGFkYXRhX29yZGluYXRpb25zIDwtIG1ldGFkYXRhX29yZGluYXRpb25zICU+JSBtdXRhdGVfaWYoc2FwcGx5KG1ldGFkYXRhX29yZGluYXRpb25zLCBpcy5jaGFyYWN0ZXIpLCBhcy5mYWN0b3IpCndpdGgoYXMuZGF0YS5mcmFtZShtZXRhZGF0YV9vcmRpbmF0aW9ucyksIGxldmVscyhPeENvbmQpKQp3aXRoKGFzLmRhdGEuZnJhbWUobWV0YWRhdGFfb3JkaW5hdGlvbnMpLCBsZXZlbHMoU2l6ZUZyYWN0aW9uKSkKCiMgRGVmaW5lIGNvbG9ycyBhbmQgc2hhcGVzIGZvciBwbG90IApjb2x2ZWMgPC0gYygiYmx1ZSIsICJyZWQiLCAiYnJvd240IikKc2hhcGV2ZWMgPC0gYygxNiwxNykKCgojIFBsb3QgaGVyZSBpbiBub3RlYm9vawojIFNldCB1cCAyeDIgcGFuZWxzCm9wIDwtIHBhcihvbWE9YygwLDAsMCwxKSwjIFJvb20gZm9yIHRoZSB0aXRsZSBhbmQgbGVnZW5kCiAgbWZyb3c9YygyLDIpLAogIG1haT1jKC42NSwuNjUsLjEsMCkpCiMgUGFuZWwgMS0gQWRkIGZpcnN0IGhhbGYgb2YgZW52Zml0IHZlY3RvcnMKd2l0aChtZXRhZGF0YV9vcmRpbmF0aW9ucywgcGxvdChzY29yZXMobG9ncmF0X3BjYSwgZGlzcGxheSA9ICJzaXRlcyIpLCBjb2wgPSBjb2x2ZWNbT3hDb25kXSwgcGNoID0gc2hhcGV2ZWNbU2l6ZUZyYWN0aW9uXSwgY2V4ID0gMS41LCBjZXgubGFiID0gLjgsIGNleC5heGlzID0gLjgsIHhsYWIgPSAiIiwgeWxhYiA9IHBhc3RlMCgnUEMyICcsIHJvdW5kKGxvZ3JhdF92YXJpYW5jZXNbMiwyXSoxMDAsMiksJyUnKSwgeGF4dD0nbicsIHhsaW09YygtNjAsNjApKSkKcGxvdChwY2FfZW52Zml0X08yLCBwLm1heCA9IDAuMSwgbHdkID0gMiwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQpwbG90KHBjYV9lbnZmaXRfcGFydFMsIHAubWF4ID0gMC4xLCBsd2QgPSAyLCBjb2wgPSAiYmxhY2siLCBjZXggPSAwLjYpCnBsb3QocGNhX2VudmZpdF9OTzMsIHAubWF4ID0gMC4xLCBsd2QgPSAyLCBjb2wgPSAiYmxhY2siLCBjZXggPSAwLjYpCnBsb3QocGNhX2VudmZpdF9QTzQsIHAubWF4ID0gMC4xLCBsd2QgPSAyLCBjb2wgPSAiYmxhY2siLCBjZXggPSAwLjYpCnRpdGxlKCJBIiwgbGluZSA9IC0xLCBhZGogPSAwLjAyKQojIFBhbmVsIDItIEFkZCByZXN0IG9mIGVudmZpdCB2ZWN0b3JzCndpdGgobWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBsb3Qoc2NvcmVzKGxvZ3JhdF9wY2EsIGRpc3BsYXkgPSAic2l0ZXMiKSwgY29sID0gY29sdmVjW094Q29uZF0sIHBjaCA9IHNoYXBldmVjW1NpemVGcmFjdGlvbl0sIGNleCA9IDEuNSwgY2V4LmxhYiA9IC44LCBjZXguYXhpcyA9IC44LCB4bGFiID0gIiIsIHlsYWIgPSAiIiwgeGF4dD0nbicsIHlheHQ9J24nLCB4bGltPWMoLTYwLDYwKSkpCnBsb3QocGNhX2VudmZpdF90ZW1wLCBwLm1heCA9IDAuMSwgbHdkID0gMiwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQpwbG90KHBjYV9lbnZmaXRfc2FsLCBwLm1heCA9IDAuMSwgbHdkID0gMiwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQpwbG90KHBjYV9lbnZmaXRfRmxhZ0FidW4sIHAubWF4ID0gMC4xLCBsd2QgPSAyLCBjb2wgPSAiYmxhY2siLCBjZXggPSAwLjYpCnBsb3QocGNhX2VudmZpdF9jaGVtbywgcC5tYXggPSAwLjEsIGx3ZCA9IDIsIGNvbCA9ICJibGFjayIsIGNleCA9IDAuNikKdGl0bGUoIkIiLCBsaW5lID0gLTEsIGFkaiA9IDAuMDIpCiMgUGFuZWwgMy0gQWRkIHNwaWRlciBsaW5lcyBpbmRpY2F0aW5nIGVudmZpdCBjZW50cm9pZHMgZm9yIFNpemUgRnJhY3Rpb24Kd2l0aChtZXRhZGF0YV9vcmRpbmF0aW9ucywgcGxvdChzY29yZXMobG9ncmF0X3BjYSwgZGlzcGxheSA9ICJzaXRlcyIpLCBjb2wgPSBjb2x2ZWNbT3hDb25kXSwgcGNoID0gc2hhcGV2ZWNbU2l6ZUZyYWN0aW9uXSwgY2V4ID0gMS41LCBjZXgubGFiID0gLjgsIGNleC5heGlzID0gLjgsIHhsYWIgPSBwYXN0ZTAoJ1BDMSAnLCByb3VuZChsb2dyYXRfdmFyaWFuY2VzWzEsMl0qMTAwLDIpLCclJyksIHlsYWIgPSBwYXN0ZTAoJ1BDMiAnLCByb3VuZChsb2dyYXRfdmFyaWFuY2VzWzIsMl0qMTAwLDIpLCclJyksIHhsaW09YygtNjAsNjApKSkKd2l0aChtZXRhZGF0YV9vcmRpbmF0aW9ucywgb3JkaXNwaWRlcihsb2dyYXRfcGNhLCBTaXplRnJhY3Rpb24sIGx3ZCA9IDEuNSwgbHR5ID0gYygxLDIpLCBsYWJlbCA9IFRSVUUsIGNleCA9IDAuNikpCnRpdGxlKCJDIiwgbGluZSA9IC0xLCBhZGogPSAwLjAyKQojIFBhbmVsIDQgLUFkZCB2ZWN0b3JzIGluZGljYXRpbmcgc2lnbmlmaWNhbnQgc3BwCndpdGgobWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBsb3Qoc2NvcmVzKGxvZ3JhdF9wY2EsIGRpc3BsYXkgPSAic2l0ZXMiKSwgY29sID0gY29sdmVjW094Q29uZF0sIHBjaCA9IHNoYXBldmVjW1NpemVGcmFjdGlvbl0sIGNleCA9IDEuNSwgY2V4LmxhYiA9IC44LCBjZXguYXhpcyA9IC44LCB4bGFiID0gcGFzdGUwKCdQQzEgJywgcm91bmQobG9ncmF0X3ZhcmlhbmNlc1sxLDJdKjEwMCwyKSwnJScpLCB5bGFiID0gIiIsIHlheHQ9J24nLCB4bGltPWMoLTYwLDYwKSkpCnBsb3QocGNhX3NwcGZpdF90cmltLCBwLm1heCA9IDAuMDAxLCBjb2wgPSAiYmxhY2siLCBjZXggPSAwLjYpCiMgYW5ub3RhdGUgdGhlIDMgY2x1c3RlcnMgb2YgQVNWcyBpbiBwYW5lbCBECnRleHQoeD1jKDApLCB5PWMoNDUpLCBsYWJlbHM9YygiQ2x1c3RlciBJIiksIGFkaiA9IDAuNSwgZm9udCA9IDIsIGNleCA9IDAuOCkKdGV4dCh4PWMoNTApLCB5PWMoMzApLCBsYWJlbHM9YygiQ2x1c3RlciBJSSIpLCBhZGogPSAwLjUsIGZvbnQgPSAyLCBjZXggPSAwLjgpCnRleHQoeD1jKDQ4KSwgeT1jKC0zNSksIGxhYmVscz1jKCJDbHVzdGVyIElJSSIpLCBhZGogPSAwLjUsIGZvbnQgPSAyLCBjZXggPSAwLjgpCnRleHQoeD1jKC00OCksIHk9YygtMTgpLCBsYWJlbHM9YygiQ2x1c3RlciBJViIpLCBhZGogPSAwLjUsIGZvbnQgPSAyLCBjZXggPSAwLjgpCnRleHQoeD1jKC00OCksIHk9YygxMCksIGxhYmVscz1jKCJDbHVzdGVyIFYiKSwgYWRqID0gMC41LCBmb250ID0gMiwgY2V4ID0gMC44KQp0aXRsZSgiRCIsIGxpbmUgPSAtMSwgYWRqID0gMC4wMikKIyBBZGQgbGVnZW5kCnBhcihvcCkgIyBMZWF2ZSB0aGUgbGFzdCBwbG90Cm9wIDwtIHBhcih1c3I9YygwLDEsMCwxKSwgIyBSZXNldCB0aGUgY29vcmRpbmF0ZXMKICAgICAgICAgIHhwZD1OQSkgICAgICAgICAjIEFsbG93IHBsb3R0aW5nIG91dHNpZGUgdGhlIHBsb3QgcmVnaW9uCmxlZ2VuZCgtMC4wMTgsLjU3LCBjKCJQQSIsICJGTCIsICJPeHljbGluZSIsICJTaGFsbG93IEFub3hpYyIsICJFdXhpbmljIiksIGNvbD1jKCJibGFjayIsICJibGFjayIsImJsdWUiLCAicmVkIiwgImJyb3duNCIpLCBwY2ggPSBjKDE2LCAxNywgMTUsIDE1LCAxNSksIGJveC5jb2w9TkEsIGNleCA9IC44LCBob3JpeiA9IFQsIHguaW50ZXJzcCA9IGMoMC4zKSwgdGV4dC53aWR0aCA9IGMoMCwgMC4xOCwgMC4xOCwgMC4xOCwgMC4yKSkKCgojIFNldCB1cCBFUFMgYW5kIG1ha2UgcGxvdApzZXRFUFMod2lkdGggPSA2LCBoZWlnaHQgPSA2KQpwb3N0c2NyaXB0KCJGaWd1cmVzL1BDQV9lbnZmaXQuZXBzIikKIyBTZXQgdXAgMngyIHBhbmVscwpvcCA8LSBwYXIob21hPWMoMCwwLDAsMSksIyBSb29tIGZvciB0aGUgdGl0bGUgYW5kIGxlZ2VuZAogIG1mcm93PWMoMiwyKSwKICBtYWk9YyguNjUsLjY1LC4xLDApKQojIFBhbmVsIDEtIEFkZCBmaXJzdCBoYWxmIG9mIGVudmZpdCB2ZWN0b3JzCndpdGgobWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBsb3Qoc2NvcmVzKGxvZ3JhdF9wY2EsIGRpc3BsYXkgPSAic2l0ZXMiKSwgY29sID0gY29sdmVjW094Q29uZF0sIHBjaCA9IHNoYXBldmVjW1NpemVGcmFjdGlvbl0sIGNleCA9IDEuNSwgY2V4LmxhYiA9IC44LCBjZXguYXhpcyA9IC44LCB4bGFiID0gIiIsIHlsYWIgPSBwYXN0ZTAoJ1BDMiAnLCByb3VuZChsb2dyYXRfdmFyaWFuY2VzWzIsMl0qMTAwLDIpLCclJyksIHhheHQ9J24nLCB4bGltPWMoLTYwLDYwKSkpCnBsb3QocGNhX2VudmZpdF9PMiwgcC5tYXggPSAwLjEsIGx3ZCA9IDIsIGNvbCA9ICJibGFjayIsIGNleCA9IDAuNikKcGxvdChwY2FfZW52Zml0X3BhcnRTLCBwLm1heCA9IDAuMSwgbHdkID0gMiwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQpwbG90KHBjYV9lbnZmaXRfTk8zLCBwLm1heCA9IDAuMSwgbHdkID0gMiwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQpwbG90KHBjYV9lbnZmaXRfUE80LCBwLm1heCA9IDAuMSwgbHdkID0gMiwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQp0aXRsZSgiQSIsIGxpbmUgPSAtMSwgYWRqID0gMC4wMikKIyBQYW5lbCAyLSBBZGQgcmVzdCBvZiBlbnZmaXQgdmVjdG9ycwp3aXRoKG1ldGFkYXRhX29yZGluYXRpb25zLCBwbG90KHNjb3Jlcyhsb2dyYXRfcGNhLCBkaXNwbGF5ID0gInNpdGVzIiksIGNvbCA9IGNvbHZlY1tPeENvbmRdLCBwY2ggPSBzaGFwZXZlY1tTaXplRnJhY3Rpb25dLCBjZXggPSAxLjUsIGNleC5sYWIgPSAuOCwgY2V4LmF4aXMgPSAuOCwgeGxhYiA9ICIiLCB5bGFiID0gIiIsIHhheHQ9J24nLCB5YXh0PSduJywgeGxpbT1jKC02MCw2MCkpKQpwbG90KHBjYV9lbnZmaXRfdGVtcCwgcC5tYXggPSAwLjEsIGx3ZCA9IDIsIGNvbCA9ICJibGFjayIsIGNleCA9IDAuNikKcGxvdChwY2FfZW52Zml0X3NhbCwgcC5tYXggPSAwLjEsIGx3ZCA9IDIsIGNvbCA9ICJibGFjayIsIGNleCA9IDAuNikKcGxvdChwY2FfZW52Zml0X0ZsYWdBYnVuLCBwLm1heCA9IDAuMSwgbHdkID0gMiwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQpwbG90KHBjYV9lbnZmaXRfY2hlbW8sIHAubWF4ID0gMC4xLCBsd2QgPSAyLCBjb2wgPSAiYmxhY2siLCBjZXggPSAwLjYpCnRpdGxlKCJCIiwgbGluZSA9IC0xLCBhZGogPSAwLjAyKQojIFBhbmVsIDMtIEFkZCBzcGlkZXIgbGluZXMgaW5kaWNhdGluZyBlbnZmaXQgY2VudHJvaWRzIGZvciBTaXplIEZyYWN0aW9uCndpdGgobWV0YWRhdGFfb3JkaW5hdGlvbnMsIHBsb3Qoc2NvcmVzKGxvZ3JhdF9wY2EsIGRpc3BsYXkgPSAic2l0ZXMiKSwgY29sID0gY29sdmVjW094Q29uZF0sIHBjaCA9IHNoYXBldmVjW1NpemVGcmFjdGlvbl0sIGNleCA9IDEuNSwgY2V4LmxhYiA9IC44LCBjZXguYXhpcyA9IC44LCB4bGFiID0gcGFzdGUwKCdQQzEgJywgcm91bmQobG9ncmF0X3ZhcmlhbmNlc1sxLDJdKjEwMCwyKSwnJScpLCB5bGFiID0gcGFzdGUwKCdQQzIgJywgcm91bmQobG9ncmF0X3ZhcmlhbmNlc1syLDJdKjEwMCwyKSwnJScpLCB4bGltPWMoLTYwLDYwKSkpCndpdGgobWV0YWRhdGFfb3JkaW5hdGlvbnMsIG9yZGlzcGlkZXIobG9ncmF0X3BjYSwgU2l6ZUZyYWN0aW9uLCBsd2QgPSAxLjUsIGx0eSA9IGMoMSwyKSwgbGFiZWwgPSBUUlVFLCBjZXggPSAwLjYpKQp0aXRsZSgiQyIsIGxpbmUgPSAtMSwgYWRqID0gMC4wMikKIyBQYW5lbCA0IC1BZGQgdmVjdG9ycyBpbmRpY2F0aW5nIHNpZ25pZmljYW50IHNwcAp3aXRoKG1ldGFkYXRhX29yZGluYXRpb25zLCBwbG90KHNjb3Jlcyhsb2dyYXRfcGNhLCBkaXNwbGF5ID0gInNpdGVzIiksIGNvbCA9IGNvbHZlY1tPeENvbmRdLCBwY2ggPSBzaGFwZXZlY1tTaXplRnJhY3Rpb25dLCBjZXggPSAxLjUsIGNleC5sYWIgPSAuOCwgY2V4LmF4aXMgPSAuOCwgeGxhYiA9IHBhc3RlMCgnUEMxICcsIHJvdW5kKGxvZ3JhdF92YXJpYW5jZXNbMSwyXSoxMDAsMiksJyUnKSwgeWxhYiA9ICIiLCB5YXh0PSduJywgeGxpbT1jKC02MCw2MCkpKQpwbG90KHBjYV9zcHBmaXRfdHJpbSwgcC5tYXggPSAwLjAwMSwgY29sID0gImJsYWNrIiwgY2V4ID0gMC42KQojIGFubm90YXRlIHRoZSAzIGNsdXN0ZXJzIG9mIEFTVnMgaW4gcGFuZWwgRAp0ZXh0KHg9YygwKSwgeT1jKDQ1KSwgbGFiZWxzPWMoIkNsdXN0ZXIgSSIpLCBhZGogPSAwLjUsIGZvbnQgPSAyLCBjZXggPSAwLjgpCnRleHQoeD1jKDUwKSwgeT1jKDMwKSwgbGFiZWxzPWMoIkNsdXN0ZXIgSUkiKSwgYWRqID0gMC41LCBmb250ID0gMiwgY2V4ID0gMC44KQp0ZXh0KHg9Yyg0OCksIHk9YygtMzUpLCBsYWJlbHM9YygiQ2x1c3RlciBJSUkiKSwgYWRqID0gMC41LCBmb250ID0gMiwgY2V4ID0gMC44KQp0ZXh0KHg9YygtNDgpLCB5PWMoLTE4KSwgbGFiZWxzPWMoIkNsdXN0ZXIgSVYiKSwgYWRqID0gMC41LCBmb250ID0gMiwgY2V4ID0gMC44KQp0ZXh0KHg9YygtNDgpLCB5PWMoMTApLCBsYWJlbHM9YygiQ2x1c3RlciBWIiksIGFkaiA9IDAuNSwgZm9udCA9IDIsIGNleCA9IDAuOCkKdGl0bGUoIkQiLCBsaW5lID0gLTEsIGFkaiA9IDAuMDIpCiMgQWRkIGxlZ2VuZApwYXIob3ApICMgTGVhdmUgdGhlIGxhc3QgcGxvdApvcCA8LSBwYXIodXNyPWMoMCwxLDAsMSksICMgUmVzZXQgdGhlIGNvb3JkaW5hdGVzCiAgICAgICAgICB4cGQ9TkEpICAgICAgICAgIyBBbGxvdyBwbG90dGluZyBvdXRzaWRlIHRoZSBwbG90IHJlZ2lvbgpsZWdlbmQoLTAuMDE4LC41NywgYygiUEEiLCAiRkwiLCAiT3h5Y2xpbmUiLCAiU2hhbGxvdyBBbm94aWMiLCAiRXV4aW5pYyIpLCBjb2w9YygiYmxhY2siLCAiYmxhY2siLCJibHVlIiwgInJlZCIsICJicm93bjQiKSwgcGNoID0gYygxNiwgMTcsIDE1LCAxNSwgMTUpLCBib3guY29sPU5BLCBjZXggPSAuOCwgaG9yaXogPSBULCB4LmludGVyc3AgPSBjKDAuMyksIHRleHQud2lkdGggPSBjKDAsIDAuMTgsIDAuMTgsIDAuMTgsIDAuMikpCgpkZXYub2ZmKCkKCmBgYAoKRm9yIHRoZSBtYW51c2NyaXB0LCBJIHdhbnQgdG8gZGlzY3VzcyB3aGF0IHRoZXNlIHNpZ25pZmljYW50IHNwZWNpZXMgYXJlLiBNYWtlIGEgdGFibGU6CmBgYHtyfQojIGV4dHJhY3QgcC12YWx1ZXMgZm9yIGVhY2ggc3BlY2llcwpmaXRfcHZhbHMgPC0gcGNhX3NwcGZpdCR2ZWN0b3JzJHB2YWxzICU+JSAKICBhcy5kYXRhLmZyYW1lKCkgJT4lIAogIHJvd25hbWVzX3RvX2NvbHVtbigiQVNWSUQiKSAlPiUgCiAgZHBseXI6OnJlbmFtZSgicHZhbHMiID0gIi4iKQoKIyBleHRyYWN0IHIyIHZhbHVlcwpmaXRfcjJ2YWxzIDwtIHBjYV9zcHBmaXQkdmVjdG9ycyRyICU+JSAKICBhcy5kYXRhLmZyYW1lKCkgJT4lIAogIHJvd25hbWVzX3RvX2NvbHVtbigiQVNWSUQiKSAlPiUgCiAgZHBseXI6OnJlbmFtZSgicjJ2YWxzIiA9ICIuIikKCiMgb25seSBrZWVwIHNwZWNpZXMgd2l0aCBwLXZhbCA8IDAuMDAxIGFuZCByMiB2YWx1ZSA+MC42CmZpdF9zcHAgPC0gcGNhX3NwcGZpdCAlPiUgCiAgc2NvcmVzKC4sIGRpc3BsYXkgPSAidmVjdG9ycyIpICU+JSAKICBhcy5kYXRhLmZyYW1lKCkgJT4lIAogIHJvd25hbWVzX3RvX2NvbHVtbigiQVNWSUQiKSAlPiUgCiAgZnVsbF9qb2luKC4sIGZpdF9wdmFscywgYnkgPSAiQVNWSUQiKSAlPiUgCiAgZnVsbF9qb2luKC4sIGZpdF9yMnZhbHMsIGJ5ID0gIkFTVklEIikgJT4lIAogIGZpbHRlcihwdmFscyA8IDAuMDAxKSAlPiUKICBmaWx0ZXIocjJ2YWxzID4gMC42KSAKIyAtLT4gZmlsdGVycyB0byAxMDcgc3BlY2llcwoKIyBwdXQgaW4gQVNWIGlkZW50aWZ5aW5nIGluZm9ybWF0aW9uCnBjYV9zaWdfQVNWcyA8LSB0YXhvbm9teSAlPiUgCiAgbXV0YXRlKEFTVklEID0gcm93bmFtZXModGF4b25vbXkpKSAlPiUgCiAgcmlnaHRfam9pbihmaXRfc3BwLCBieSA9ICJBU1ZJRCIpIAoKIyBzb3J0IGJ5IFBDMiB0byBkaWZmZXJlbnRpYXRlIHRob3NlIGFib3ZlIGFuZCBiZWxvdyB0aGUgUEMyPSAwIGF4aXMKcGNhX3NpZ19BU1ZzIDwtIHBjYV9zaWdfQVNWcyAlPiUKIGFycmFuZ2UoZGVzYyhQQzIpKQoKcGNhX3NpZ19BU1ZzCgojIHRoZSB2ZWdhbiBwbG90IGFsc28gc2NhbGVzIHRoZSBzcGVjaWVzIHNjb3JlcyB0byBmaXQgdGhlIGN1cnJlbnQgcGxvdCAod2hpY2ggaXMgd2h5IFBDIHZhbHVlcyBkb24ndCBtYXRjaCB3aGF0IGlzIHNlZW4gaW4gcGxvdCkgR2V0IHRoZXNlIHNjYWxlZCBQQyB2YWx1ZXMKb3JkaUFycm93TXVsKGxvZ3JhdF9wY2EsIGRpc3BsYXkgPSAic3BlY2llcyIpICM3LjYzNjg1NgpvcmRpQXJyb3dNdWwocGNhX3NwcGZpdCwgZGlzcGxheSA9ICJ2ZWN0b3JzIikgIzAuODI5MTEyMQoKIyBleHBvcnQgYXMgdGFibGUKd3JpdGUuY3N2KHBjYV9zaWdfQVNWcywgZmlsZT0ic3RhdHNfcmVzdWx0cy9wY2Ffc2lnX0FTVnMuY3N2Iiwgcm93Lm5hbWVzPUZBTFNFKQpgYGAKCgoKCgojIENvcnJlbGF0aW9uIEFuYWx5c2VzCgojIyBQcmVwYXJlIHRoZSBkYXRhCgojIyMgSW1wb3J0IHByb2thcnlvdGUgZGF0YXNldCBmcm9tIFN1dGVyIGV0IGFsLiAyMDE4CgpJbXBvcnQKYGBge3J9CmFyY2hfY291bnRzIDwtIHJlYWRfY3N2KCJTdXRlcl8yMDE4X2NvdW50X3RhYmxlcy9DYXJpYWNvX0FBX3VwZGF0ZWRfcmF3LmNzdiIpOwpiYWNfY291bnRzIDwtIHJlYWRfY3N2KCJTdXRlcl8yMDE4X2NvdW50X3RhYmxlcy9DYXJpYWNvX0FCX3VwZGF0ZWRfcmF3LmNzdiIpOwpgYGAKCkdldCBzYW1wbGUgbmFtZXMKYGBge3J9CmJhY19zYW1wbGVzIDwtIGNvbG5hbWVzKGJhY19jb3VudHMpWzI6NDldCmFyY2hfc2FtcGxlcyA8LSBjb2xuYW1lcyhhcmNoX2NvdW50cylbMjo0N10KCmJhY19zYW1wbGVzCmFyY2hfc2FtcGxlcwpgYGAKCk1ha2Ugc2VwYXJhdGUgdGF4b25vbXkgYW5kIGNvdW50IHZhcmlhYmxlcwpgYGB7cn0KYXJjaF9PVFUgPC0gYXJjaF9jb3VudHNbLGMoIiNPVFUgSUQiLGFyY2hfc2FtcGxlcyldCmFyY2hfdGF4b25vbXkgPC0gIGFyY2hfY291bnRzICU+JQogIHNlbGVjdCgtYXJjaF9zYW1wbGVzKSAgJT4lCiAgc2VsZWN0KC1TdW0pCgphcmNoX09UVQphcmNoX3RheG9ub215CgpiYWNfT1RVIDwtIGJhY19jb3VudHNbLGMoIiNPVFUgSUQiLGJhY19zYW1wbGVzKV0KYmFjX3RheG9ub215IDwtICBiYWNfY291bnRzICU+JQogIHNlbGVjdCgtYmFjX3NhbXBsZXMpICAlPiUKICBzZWxlY3QoLVN1bSkgJT4lCiAgc2VsZWN0KC0iSW50ZXJlc3RpbmcgY2xvc2UgcmVsYXRpdmVzIikKCmJhY19PVFUKYmFjX3RheG9ub215CmBgYAoKCiMjIyBNYWtlIGludG8gcGh5bG9zZXEgb2JqZWN0cwpgYGB7cn0KYmFjX09UVSA8LSB0eXBlX2NvbnZlcnQoYXMuZGF0YS5mcmFtZShiYWNfT1RVKSkKcm93bmFtZXMoYmFjX09UVSkgPC0gYmFjX09UVSRgI09UVSBJRGAKYmFjX09UVSA8LSBiYWNfT1RVWywhbmFtZXMoYmFjX09UVSkgJWluJSAoYygiI09UVSBJRCIpKV0KCmJhY19PVFUJPQlvdHVfdGFibGUoYmFjX09UVSwgdGF4YV9hcmVfcm93cyA9ICBUUlVFKQojCmFyY2hfT1RVIDwtIHR5cGVfY29udmVydChhcy5kYXRhLmZyYW1lKGFyY2hfT1RVKSkKcm93bmFtZXMoYXJjaF9PVFUpIDwtIGFyY2hfT1RVJGAjT1RVIElEYAphcmNoX09UVSA8LSBhcmNoX09UVVssIW5hbWVzKGFyY2hfT1RVKSAlaW4lIChjKCIjT1RVIElEIikpXQoKYXJjaF9PVFUJPQlvdHVfdGFibGUoYXJjaF9PVFUsIHRheGFfYXJlX3Jvd3MgPSAgVFJVRSkKIwpiYWNfVEFYIDwtIHR5cGVfY29udmVydChhcy5kYXRhLmZyYW1lKGJhY190YXhvbm9teSkpCnJvd25hbWVzKGJhY19UQVgpIDwtIGJhY19UQVgkYCNPVFUgSURgCmJhY19UQVggPC0gYmFjX1RBWFssIW5hbWVzKGJhY19UQVgpICVpbiUgKGMoIiNPVFUgSUQiKSldCgpiYWNfVEFYCT0JdGF4X3RhYmxlKGFzLm1hdHJpeChiYWNfVEFYKSkKIwphcmNoX1RBWCA8LSB0eXBlX2NvbnZlcnQoYXMuZGF0YS5mcmFtZShhcmNoX3RheG9ub215KSkKcm93bmFtZXMoYXJjaF9UQVgpIDwtIGFyY2hfVEFYJGAjT1RVIElEYAphcmNoX1RBWCA8LSBhcmNoX1RBWFssIW5hbWVzKGFyY2hfVEFYKSAlaW4lIChjKCIjT1RVIElEIikpXQoKYXJjaF9UQVgJPQl0YXhfdGFibGUoYXMubWF0cml4KGFyY2hfVEFYKSkKIwpNRVRBCT0Jc2FtcGxlX2RhdGEoZGF0YS5mcmFtZShtZXRhZGF0YSwgcm93Lm5hbWVzID0gbWV0YWRhdGEkYFNhbXBsZSBOYW1lYCkpCiMKCnBzX2JhYyA8LSBwaHlsb3NlcShiYWNfT1RVLAliYWNfVEFYLAlNRVRBKQpwc19hcmNoIDwtIHBoeWxvc2VxKGFyY2hfT1RVLAlhcmNoX1RBWCwJTUVUQSkKYGBgCgpGaWx0ZXIgb3V0IHRoZSBzYW1wbGVzIHdpdGggbG93IHNlcXVlbmNpbmcgZWZmb3J0LiBUaGVzZSB3ZXJlIHByZXZpb3VzbHkgaWRlbnRpZmllZCBmb3IgaXRhZ3MgcGFwZXIKCmBgYHtyfQp0YXhhX3RvX2tlZXBfYiA8LSAhc2FtcGxlX25hbWVzKHBzX2JhYykgJWluJSBjKCJBQjNhOTAwQSIsIkFCMmEyMDBBIiwiQUIyYjI2N0EiKQpwc19iYWMgPC0gcHJ1bmVfc2FtcGxlcyh0YXhhX3RvX2tlZXBfYiwgcHNfYmFjKQoKdGF4YV90b19rZWVwX2EgPC0gIXNhbXBsZV9uYW1lcyhwc19hcmNoKSAlaW4lIGMoIkFBMmI5MDBBTiIsIkFBMmEyNDdCIiwiQUEyYTkwMEJOIiwiQUEyYjkwMEJOIikKcHNfYXJjaCA8LSBwcnVuZV9zYW1wbGVzKHRheGFfdG9fa2VlcF9hLCBwc19hcmNoKQpgYGAKCgojIyMgRmlsdGVyaW5nCgpGaXJzdCBjYWxjdWxhdGUgcmVsYXRpdmUgYWJkdW5hbmNlIG9mIGJhYyBhbmQgYXJjaCBPVFUgdGFibGVzCmBgYHtyfQpwc19iYWNfcmEgPC0gbWljcm9iaW9tZTo6dHJhbnNmb3JtKHBzX2JhYywgdHJhbnNmb3JtID0gImNvbXBvc2l0aW9uYWwiKQoob3R1X3RhYmxlKHBzX2JhY19yYSkpWzE6NSwxOjVdCgpwc19hcmNoX3JhIDwtIG1pY3JvYmlvbWU6OnRyYW5zZm9ybShwc19hcmNoLCB0cmFuc2Zvcm0gPSAiY29tcG9zaXRpb25hbCIpCihvdHVfdGFibGUocHNfYXJjaF9yYSkpWzE6NSwxOjVdCmBgYAoKCiMjIyBGaWx0ZXIgbG93IGFidW5kYW5jZSBzcGVjaWVzIGZyb20gZnVsbCBkYXRhc2V0CgpSZW1vdmUgcm93cyBvZiBnbG9tbWVkIHRheGEgZnJvbSB0aGUgZnVsbCBkYXRhZnJhbWUgaWYgdGhlaXIgc3VtIGFjcm9zcyBhbGwgc2FtcGxlcyBkb2Vzbid0IGV4Y2VlZCA1JSAoUkEgPiAwLjA1KSAKCmBgYHtyfQojIEJhY3RlcmlhCnggPC0gdGF4YV9zdW1zKHBzX2JhY19yYSkKIyBrZWVwVGF4YSA8LSAgYmFzZTo6d2hpY2goeCAgPiAuMDUpCmtlZXBUYXhhIDwtICB4Pi4wNSAjIHBydW5lX3RheGEgcmVxdWlyZSBhIGxvZ2ljYWwgbm90IGEgbGlzdCBvZiBJRHMuIGNvbXBhcmUgdG8ga2VlcFRheGEgYWJvdmUgdG8gY2hlY2sKcHNfYmFjX3JhX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfYmFjX3JhKQpwc19iYWNfcHJ1bmVkIDwtICBwcnVuZV90YXhhKGtlZXBUYXhhLCBwc19iYWMpCnBzX2JhY19yYV9wcnVuZWQKcHNfYmFjX3BydW5lZAoKCiMgQXJjaGFlYQp4IDwtIHRheGFfc3Vtcyhwc19hcmNoX3JhKQojIGtlZXBUYXhhIDwtICBiYXNlOjp3aGljaCh4ICA+IC4wNSkKa2VlcFRheGEgPC0gIHg+LjA1ICMgcHJ1bmVfdGF4YSByZXF1aXJlIGEgbG9naWNhbCBub3QgYSBsaXN0IG9mIElEcy4gY29tcGFyZSB0byBrZWVwVGF4YSBhYm92ZSB0byBjaGVjawpwc19hcmNoX3JhX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfYXJjaF9yYSkKcHNfYXJjaF9wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2FyY2gpCnBzX2FyY2hfcmFfcHJ1bmVkCnBzX2FyY2hfcHJ1bmVkCgoKIyBFdWthcnlvdGVzCnggPC0gdGF4YV9zdW1zKHBzX3JhKQojIGtlZXBUYXhhIDwtICBiYXNlOjp3aGljaCh4ICA+IC4wNSkKa2VlcFRheGEgPC0gIHg+LjA1ICMgcHJ1bmVfdGF4YSByZXF1aXJlIGEgbG9naWNhbCBub3QgYSBsaXN0IG9mIElEcy4gY29tcGFyZSB0byBrZWVwVGF4YSBhYm92ZSB0byBjaGVjawpwc19ldWtfcmFfcHJ1bmVkIDwtICBwcnVuZV90YXhhKGtlZXBUYXhhLCBwc19yYSkKcHNfZXVrX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHMpCnBzX2V1a19yYV9wcnVuZWQKcHNfZXVrX3BydW5lZAoKYGBgClRyaW1tZWQgdG8gMTI0IGJhY3RlcmlhIE9UVXMsIDUyIGFyY2hhZWEgT1RVcywgYW5kIDEyMyBldWthcnlvdGljIEFTVnMgKDI5OSB0b3RhbCkuIFByb2NlZWQgd2l0aCB0aGlzIGRhdGFzZXQgb2YgdGhlIG1vc3QgYWJ1bmRhbnQgT1RVcyBmb3IgY29ycmVsYXRpb25zIGFuZCBuZXR3b3JrIGFuYWx5c2VzLi4uCgpUbyBkbyB0aGUgbXVsdGktZG9tYWluIGFuYWx5c2lzLCB0aGUgc2FtcGxlIG5hbWVzIGZyb20gZWFjaCBwaHlsb3NlcSBvYmplY3QgbXVzdCBtYXRjaC4gVGhlc2UgY3VycmVudGx5IGhhdmUgIkIiIGZvciBiYWN0ZXJpYSwgQSwgRSBldGMuIFJlbW92ZSB0aGlzIGxldHRlciBmcm9tIHNhbXBsZSBuYW1lcyBzbyB0aGF0ICJBRTJhMjQ3QiIsICJBQTJhMjQ3QiIsICJBQjJhMjQ3QiIgYWxsIGJlY29tZSBqdXN0ICJUeXBlIiBmcm9tIHRoZSBtZXRhZGF0YSBzaGVldCBbSW50Tm92MUZMIGluIHRoaXMgY2FzZS0gZm9yIEludGVyZmFjZSwgTm92ZW1iZXIsIHJlcCAxLCBmcmVlLWxpdmluZ10uIAoKSW1wb3J0IG15IFNhbXBsZUtleQpgYGB7cn0Kc2FtcGxla2V5IDwtIHJlYWRfY3N2KCJTYW1wbGVLZXkuY3N2IikKYGBgCgoKQ2hhbmdlIHRoZSBzYW1wbGUgbmFtZXMgaW4gdGhlIG90dSB0YWJsZXMgdG8gc2FtcGxlICJUeXBlIgpgYGB7cn0KIyBBcmNoYWVhCiMgcmVtb3ZlIG1pc3NpbmcgYXJjaGFlYSBzYW1wbGVzIGZyb20gc2FtcGxla2V5X0EKc2FtcGxla2V5X0EgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfYXJjaCAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYXJjaF9yYV9wcnVuZWQpKSkKIyBzb3J0IFNhbXBsZUtleSBieSBvcmRlciBvZiBjb2x1bW4gbmFtZXMgZnJvbSBwc19hcmNoX3JhX3BydW5lZApzYW1wbGVrZXlfQSA8LSBzYW1wbGVrZXlfQSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfYXJjaCwgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2FyY2hfcmFfcHJ1bmVkKSkpKQojIHJlcGxhY2UgY29sIG5hbWVzIG9mIG90dSB0YWJsZSBmcm9tIHBzX2FyY2hfcmFfcHJ1bmVkCnNhbXBsZV9uYW1lcyhwc19hcmNoX3JhX3BydW5lZCkgPC0gc2FtcGxla2V5X0EkVHlwZQojIGFuZCBwc19hcmNoX3BydW5lZApzYW1wbGVfbmFtZXMocHNfYXJjaF9wcnVuZWQpIDwtIHNhbXBsZWtleV9BJFR5cGUKCgojIEJhY3RlcmlhCnNhbXBsZWtleV9CIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2JhYyAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYmFjX3JhX3BydW5lZCkpKQpzYW1wbGVrZXlfQiA8LSBzYW1wbGVrZXlfQiAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfYmFjLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYmFjX3JhX3BydW5lZCkpKSkKc2FtcGxlX25hbWVzKHBzX2JhY19yYV9wcnVuZWQpIDwtIHNhbXBsZWtleV9CJFR5cGUKc2FtcGxlX25hbWVzKHBzX2JhY19wcnVuZWQpIDwtIHNhbXBsZWtleV9CJFR5cGUKCiMgRXVrYXJ5b3RlcwpzYW1wbGVrZXlfRSA8LSBmaWx0ZXIoc2FtcGxla2V5LCBTYW1wbGVJRF9ldWsgICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2V1a19yYV9wcnVuZWQpKSkKc2FtcGxla2V5X0UgPC0gc2FtcGxla2V5X0UgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2V1aywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2V1a19yYV9wcnVuZWQpKSkpCnNhbXBsZV9uYW1lcyhwc19ldWtfcmFfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfRSRUeXBlCnNhbXBsZV9uYW1lcyhwc19ldWtfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfRSRUeXBlCgpgYGAKCgpNb3ZlIGFsbCBwcnVuZWQgb3R1IHRhYmxlcyBpbnRvIG9uZSB0YWJsZSBieSBtYXRjaGluZyB0aGUgc2FtcGxlIFR5cGUtIHdpbGwgdXNlIHRoaXMgZm9yIFNwYXJDQwpNYWtlIG9uZSBmb3IgdGhlIDMtZG9tYWluIGFuYWx5c2lzIGFuZCBvbmUgZm9yIHRoZSAyLWRvbWFpbiBhbmFseXNpcyAoYmFjdGVyaWEgYW5kIGFyY2hhZWEgb25seSkKYGBge3J9CmFsbGRvbWFpbnNfZGYgPC0gYmluZF9yb3dzKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX2JhY19wcnVuZWQpKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYXJjaF9wcnVuZWQpKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfZXVrX3BydW5lZCkpKQphbGxkb21haW5zX2RmCgp0d29kb21haW5zX2RmIDwtIGJpbmRfcm93cyhkYXRhLmZyYW1lKG90dV90YWJsZShwc19iYWNfcHJ1bmVkKSksIGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkKSkpCnR3b2RvbWFpbnNfZGYKYGBgCgoKCkNoYW5nZSByb3cgbmFtZXMgZnJvbSAiZGVub3ZvWFhYIiB0byBtZWFuaW5nZnVsIG5hbWVzCmBgYHtyfQphbGxkb21haW5zX2RmX2Z1bGwgPC0gY2JpbmQoSUQgPSByb3duYW1lcyhhbGxkb21haW5zX2RmKSwgYWxsZG9tYWluc19kZikKdHdvZG9tYWluc19kZl9mdWxsIDwtIGNiaW5kKElEID0gcm93bmFtZXModHdvZG9tYWluc19kZiksIHR3b2RvbWFpbnNfZGYpCgoKIyBzdGFydCB3aXRoIG9ubHkgZmlyc3Qgcm93cywgd2hpY2ggYXJlIGJhY3RlcmlhLiBtYWtlIG9uZSBjb2x1bW4gb2YgbWVhbmluZ2Z1bCBsYWJlbHMKdGVtcDEgPC0gbGVmdF9qb2luKGFsbGRvbWFpbnNfZGZfZnVsbFsxOmRpbShvdHVfdGFibGUocHNfYmFjX3BydW5lZCkpWzFdLF0sIGJhY190YXhvbm9teSwgYnkgPSBjKCJJRCIgPSAiI09UVSBJRCIpKSAKdGVtcDEkTmV3X0lEIDwtIHBhc3RlKHRlbXAxJElELCB0ZW1wMSQidGF4b25vbXktMiIsIHRlbXAxJCJ0YXhvbm9teS0zIiwgdGVtcDEkInRheG9ub215LTQiKQp0ZW1wMSA8LSBzZWxlY3QodGVtcDEsLWNvbG5hbWVzKGJhY190YXhvbm9teVssMjoxMV0pKQoKIyBuZXh0IHJvd3MgYXJlIHRoZSBhcmNoYWVhIAp0ZW1wMiA8LSBsZWZ0X2pvaW4oYWxsZG9tYWluc19kZl9mdWxsW3N1bShkaW0ob3R1X3RhYmxlKHBzX2JhY19wcnVuZWQpKVsxXSwxKTpzdW0oZGltKG90dV90YWJsZShwc19iYWNfcHJ1bmVkKSlbMV0sZGltKG90dV90YWJsZShwc19hcmNoX3BydW5lZCkpWzFdKSxdLCBhcmNoX3RheG9ub215LCBieSA9IGMoIklEIiA9ICIjT1RVIElEIikpIAp0ZW1wMiROZXdfSUQgPC0gcGFzdGUodGVtcDIkSUQsIHRlbXAyJCJ0YXhvbm9teS0yIiwgdGVtcDIkInRheG9ub215LTMiKQp0ZW1wMiA8LSBzZWxlY3QodGVtcDIsLWNvbG5hbWVzKGFyY2hfdGF4b25vbXlbLDI6OV0pKQoKCiMgbGFzdCByb3dzIGFyZSBldWthcnlhCmV1a190YXhvbm9teSA8LSBjYmluZCgiI0FTViBJRCIgPSByb3duYW1lcyh0YXhvbm9teSksIHRheG9ub215KQp0ZW1wMyA8LSBsZWZ0X2pvaW4oYWxsZG9tYWluc19kZl9mdWxsW3N1bShkaW0ob3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkKSlbMV0sIGRpbShvdHVfdGFibGUocHNfYmFjX3BydW5lZCkpWzFdLDEpOnN1bShkaW0ob3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkKSlbMV0sIGRpbShvdHVfdGFibGUocHNfYmFjX3BydW5lZCkpWzFdLGRpbShvdHVfdGFibGUocHNfZXVrX3BydW5lZCkpWzFdKSxdLCBldWtfdGF4b25vbXksIGJ5ID0gYygiSUQiID0gIiNBU1YgSUQiKSkgCnRlbXAzJE5ld19JRCA8LSBwYXN0ZSh0ZW1wMyRJRCwgdGVtcDMkIlN1cGVyZ3JvdXAiLCB0ZW1wMyQiRGl2aXNpb24iLCB0ZW1wMyQiQ2xhc3MiLCB0ZW1wMyQiT3JkZXIiKQp0ZW1wMyA8LSBzZWxlY3QodGVtcDMsLWNvbG5hbWVzKGV1a190YXhvbm9teVssMjo5XSkpCgojIGNvbWJpbmUgYmFjayBhbGwgMyBkb21haW5zLCB3aXRoIG5ldyBuYW1lcyBhcyByb3cgbmFtZXMgaW4gYSBkYXRhZnJhbWUKYWxsZG9tYWluc19kZl9mdWxsIDwtIHJiaW5kKHRlbXAxLCB0ZW1wMiwgdGVtcDMpCmFsbGRvbWFpbnNfZGZfZnVsbCA8LSBkYXRhLmZyYW1lKGFsbGRvbWFpbnNfZGZfZnVsbCkKcm93bmFtZXMoYWxsZG9tYWluc19kZl9mdWxsKSA8LSBhbGxkb21haW5zX2RmX2Z1bGwkTmV3X0lECmFsbGRvbWFpbnNfZGZfZnVsbCA8LSBzZWxlY3QoYWxsZG9tYWluc19kZl9mdWxsLCAtYygiSUQiLCJOZXdfSUQiKSkKCiMgYW5kIG1ha2Ugb25lIGZvciB0aGUgMi1kb21haW4gZGF0YXNldAp0d29kb21haW5zX2RmX2Z1bGwgPC0gcmJpbmQodGVtcDEsIHRlbXAyKQp0d29kb21haW5zX2RmX2Z1bGwgPC0gZGF0YS5mcmFtZSh0d29kb21haW5zX2RmX2Z1bGwpCnJvd25hbWVzKHR3b2RvbWFpbnNfZGZfZnVsbCkgPC0gdHdvZG9tYWluc19kZl9mdWxsJE5ld19JRAp0d29kb21haW5zX2RmX2Z1bGwgPC0gc2VsZWN0KHR3b2RvbWFpbnNfZGZfZnVsbCwgLWMoIklEIiwiTmV3X0lEIikpCgpgYGAKCgoKUmVtb3ZlIGNvbHVtbnMgd2l0aCBOQXMuIFRoZXNlIGFyZSBzYW1wbGVzIGZvciB3aGljaCB0aGUgbGlicmFyeSBmb3IgYXQgbGVhc3Qgb25lIGRvbWFpbiBkaWRuJ3Qgd29yayAoY2FuJ3QgZG8gY29ycmVsYXRpb25zIHdpdGggbWlzc2luZyB2YWx1ZXMgaW4gY29sdW1ucykKYGBge3J9CmFsbGRvbWFpbnNfZGZfZnVsbCA8LSBhbGxkb21haW5zX2RmX2Z1bGwgJT4lCiAgICBzZWxlY3RfaWYofiAhYW55KGlzLm5hKC4pKSkKYWxsZG9tYWluc19kZl9mdWxsCgphbGxkb21haW5zX2RmIDwtIGFsbGRvbWFpbnNfZGYgJT4lCiAgICBzZWxlY3RfaWYofiAhYW55KGlzLm5hKC4pKSkKYWxsZG9tYWluc19kZgoKdHdvZG9tYWluc19kZl9mdWxsIDwtIHR3b2RvbWFpbnNfZGZfZnVsbCAlPiUKICAgIHNlbGVjdF9pZih+ICFhbnkoaXMubmEoLikpKQp0d29kb21haW5zX2RmX2Z1bGwKCnR3b2RvbWFpbnNfZGYgPC0gdHdvZG9tYWluc19kZiAlPiUKICAgIHNlbGVjdF9pZih+ICFhbnkoaXMubmEoLikpKQp0d29kb21haW5zX2RmCmBgYAoKCgojIyMgRmlsdGVyIGxvdyBhYnVuZGFuY2Ugc3BlY2llcy0gb3h5Y2xpbmUgZGVwdGhzIG9ubHkKU2ltbGFybHksIG1ha2UgcHJ1bmVkIGRhdGFzZXRzIG9mIHRoZSBtb3N0IGFidW5kYW50IE9UVXMvQVNWcyBpbiB0aGUgb3h5Y2xpbmUsIGFub3hpYywgYW5kIGV1eGluaWMgc2FtcGxlcyBhcyBzZXBhcmF0ZSBkYXRhc2V0cwoKUHVsbCBvdXQgc2FtcGxlcyBhbmQgdGF4YSBmcm9tIGVhY2ggcmVkb3ggcmVnaW1lCmBgYHtyfQojIFB1bGwgb3V0IG94eWNsaW5lIGJhY3RlcmlhIHNhbXBsZSBJRHMKb3h5Y2xpbmV0eXBlc19iYWMgPC0gbWV0YWRhdGEgJT4lIAogIGZpbHRlcihgU2FtcGxlIE5hbWVgICVpbiUgc2FtcGxlX25hbWVzKHBzX2JhYykpICU+JQogIGZpbHRlcihPeENvbmQgPT0gIk94eWNsaW5lIikgJT4lIAogIHNlbGVjdCgiU2FtcGxlIE5hbWUiKQpveHljbGluZXR5cGVzX2JhYyA8LSB1bmxpc3QoYyh1bmlxdWUob3h5Y2xpbmV0eXBlc19iYWMpKSwgdXNlLm5hbWVzID0gRkFMU0UpCgojIFB1bGwgb3V0IGFsbCBiYWN0ZXJpYSBmcm9tIG94eWNsaW5lCnBzX2JhY19veHljbGluZSA8LSAgcHJ1bmVfc2FtcGxlcyhveHljbGluZXR5cGVzX2JhYywgcHNfYmFjKQpwc19iYWNfcmFfb3h5Y2xpbmUgPC0gIHBydW5lX3NhbXBsZXMob3h5Y2xpbmV0eXBlc19iYWMsIHBzX2JhY19yYSkKCgojIFB1bGwgb3V0IG94eWNsaW5lIGFyY2hhZWEgc2FtcGxlIElEcwpveHljbGluZXR5cGVzX2FyY2ggPC0gbWV0YWRhdGEgJT4lIAogIGZpbHRlcihgU2FtcGxlIE5hbWVgICVpbiUgc2FtcGxlX25hbWVzKHBzX2FyY2gpKSAlPiUKICBmaWx0ZXIoT3hDb25kID09ICJPeHljbGluZSIpICU+JSAKICBzZWxlY3QoIlNhbXBsZSBOYW1lIikKb3h5Y2xpbmV0eXBlc19hcmNoIDwtIHVubGlzdChjKHVuaXF1ZShveHljbGluZXR5cGVzX2FyY2gpKSwgdXNlLm5hbWVzID0gRkFMU0UpCgojIFB1bGwgb3V0IGFsbCBhcmNoYWVhIGZyb20gb3h5Y2xpbmUKcHNfYXJjaF9veHljbGluZSA8LSAgcHJ1bmVfc2FtcGxlcyhveHljbGluZXR5cGVzX2FyY2gsIHBzX2FyY2gpCnBzX2FyY2hfcmFfb3h5Y2xpbmUgPC0gIHBydW5lX3NhbXBsZXMob3h5Y2xpbmV0eXBlc19hcmNoLCBwc19hcmNoX3JhKQoKCiMgUHVsbCBvdXQgb3h5Y2xpbmUgZXVrYXJ5b3RpYyBzYW1wbGUgSURzCm94eWNsaW5ldHlwZXNfZXVrIDwtIG1ldGFkYXRhICU+JSAKICBmaWx0ZXIoYFNhbXBsZSBOYW1lYCAlaW4lIHNhbXBsZV9uYW1lcyhwcykpICU+JQogIGZpbHRlcihPeENvbmQgPT0gIk94eWNsaW5lIikgJT4lIAogIHNlbGVjdCgiU2FtcGxlIE5hbWUiKQpveHljbGluZXR5cGVzX2V1ayA8LSB1bmxpc3QoYyh1bmlxdWUob3h5Y2xpbmV0eXBlc19ldWspKSwgdXNlLm5hbWVzID0gRkFMU0UpCgojIFB1bGwgb3V0IGFsbCBldWthcnlvdGVzIGZyb20gb3h5Y2xpbmUKcHNfZXVrX294eWNsaW5lIDwtICBwcnVuZV9zYW1wbGVzKG94eWNsaW5ldHlwZXNfZXVrLCBwcykKcHNfZXVrX3JhX294eWNsaW5lIDwtICBwcnVuZV9zYW1wbGVzKG94eWNsaW5ldHlwZXNfZXVrLCBwc19yYSkKCmBgYAoKRmlsdGVyIG91dCBsb3cgYWJ1bmRhbmNlIHRheGEgZnJvbSB0aGUgb3h5Y2xpbmUgc2FtcGxlcy4gVXNlIDUlIGFzIGN1dG9mZiAKYGBge3J9CiMgQmFjdGVyaWEKeCA8LSB0YXhhX3N1bXMocHNfYmFjX3JhX294eWNsaW5lKQprZWVwVGF4YSA8LSAgeD4uMDUgIyBwcnVuZV90YXhhIHJlcXVpcmUgYSBsb2dpY2FsIG5vdCBhIGxpc3Qgb2YgSURzLiBjb21wYXJlIHRvIGtlZXBUYXhhIGFib3ZlIHRvIGNoZWNrCnBzX2JhY19yYV9veHljbGluZV9wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2JhY19yYV9veHljbGluZSkKcHNfYmFjX294eWNsaW5lX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfYmFjX294eWNsaW5lKQpwc19iYWNfcmFfb3h5Y2xpbmVfcHJ1bmVkCnBzX2JhY19veHljbGluZV9wcnVuZWQKCiMgQXJjaGFlYQp4IDwtIHRheGFfc3Vtcyhwc19hcmNoX3JhX294eWNsaW5lKQprZWVwVGF4YSA8LSAgeD4uMDUgIyBwcnVuZV90YXhhIHJlcXVpcmUgYSBsb2dpY2FsIG5vdCBhIGxpc3Qgb2YgSURzLiBjb21wYXJlIHRvIGtlZXBUYXhhIGFib3ZlIHRvIGNoZWNrCnBzX2FyY2hfcmFfb3h5Y2xpbmVfcHJ1bmVkIDwtICBwcnVuZV90YXhhKGtlZXBUYXhhLCBwc19hcmNoX3JhX294eWNsaW5lKQpwc19hcmNoX294eWNsaW5lX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfYXJjaF9veHljbGluZSkKcHNfYXJjaF9yYV9veHljbGluZV9wcnVuZWQKcHNfYXJjaF9veHljbGluZV9wcnVuZWQKCiMgRXVrYXJ5b3Rlcwp4IDwtIHRheGFfc3Vtcyhwc19ldWtfcmFfb3h5Y2xpbmUpCmtlZXBUYXhhIDwtICB4Pi4wNSAjIHBydW5lX3RheGEgcmVxdWlyZSBhIGxvZ2ljYWwgbm90IGEgbGlzdCBvZiBJRHMuIGNvbXBhcmUgdG8ga2VlcFRheGEgYWJvdmUgdG8gY2hlY2sKcHNfZXVrX3JhX294eWNsaW5lX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfZXVrX3JhX294eWNsaW5lKQpwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkIDwtICBwcnVuZV90YXhhKGtlZXBUYXhhLCBwc19ldWtfb3h5Y2xpbmUpCnBzX2V1a19yYV9veHljbGluZV9wcnVuZWQKcHNfZXVrX294eWNsaW5lX3BydW5lZAoKYGBgCjc5IGJhY3RlcmlhLCAzNiBhcmNoYWVhLCA3NiBldWthcnlvdGEgcmVtYWluCgoKQ2hhbmdlIHRoZSBzYW1wbGUgbmFtZXMgaW4gdGhlIG90dSB0YWJsZXMgdG8gIlR5cGUiCmBgYHtyfQojIEFyY2hhZWEKIyByZW1vdmUgbWlzc2luZyBhcmNoYWVhIHNhbXBsZXMgZnJvbSBzYW1wbGVrZXlfQQpzYW1wbGVrZXlfQSA8LSBmaWx0ZXIoc2FtcGxla2V5LCBTYW1wbGVJRF9hcmNoICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19hcmNoX3JhX294eWNsaW5lX3BydW5lZCkpKQojIHNvcnQgU2FtcGxlS2V5IGJ5IG9yZGVyIG9mIGNvbHVtbiBuYW1lcyBmcm9tIHBzX2FyY2hfcmFfb3h5Y2xpbmVfcHJ1bmVkCnNhbXBsZWtleV9BIDwtIHNhbXBsZWtleV9BICU+JSBhcnJhbmdlKGZhY3RvcihTYW1wbGVJRF9hcmNoLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYXJjaF9yYV9veHljbGluZV9wcnVuZWQpKSkpCiMgcmVwbGFjZSBjb2wgbmFtZXMgb2Ygb3R1IHRhYmxlIGZyb20gcHNfYXJjaF9yYV9veHljbGluZV9wcnVuZWQKc2FtcGxlX25hbWVzKHBzX2FyY2hfcmFfb3h5Y2xpbmVfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfQSRUeXBlCiMgYW5kIHBzX2FyY2hfcHJ1bmVkCnNhbXBsZV9uYW1lcyhwc19hcmNoX294eWNsaW5lX3BydW5lZCkgPC0gc2FtcGxla2V5X0EkVHlwZQoKCiMgQmFjdGVyaWEKc2FtcGxla2V5X0IgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfYmFjICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19iYWNfcmFfb3h5Y2xpbmVfcHJ1bmVkKSkpCnNhbXBsZWtleV9CIDwtIHNhbXBsZWtleV9CICU+JSBhcnJhbmdlKGZhY3RvcihTYW1wbGVJRF9iYWMsIGxldmVscyA9IGNvbG5hbWVzKG90dV90YWJsZShwc19iYWNfcmFfb3h5Y2xpbmVfcHJ1bmVkKSkpKQpzYW1wbGVfbmFtZXMocHNfYmFjX3JhX294eWNsaW5lX3BydW5lZCkgPC0gc2FtcGxla2V5X0IkVHlwZQpzYW1wbGVfbmFtZXMocHNfYmFjX294eWNsaW5lX3BydW5lZCkgPC0gc2FtcGxla2V5X0IkVHlwZQoKCiMgRXVrYXJ5b3RlcwpzYW1wbGVrZXlfRSA8LSBmaWx0ZXIoc2FtcGxla2V5LCBTYW1wbGVJRF9ldWsgICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2V1a19yYV9veHljbGluZV9wcnVuZWQpKSkKc2FtcGxla2V5X0UgPC0gc2FtcGxla2V5X0UgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2V1aywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2V1a19yYV9veHljbGluZV9wcnVuZWQpKSkpCnNhbXBsZV9uYW1lcyhwc19ldWtfcmFfb3h5Y2xpbmVfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfRSRUeXBlCnNhbXBsZV9uYW1lcyhwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfRSRUeXBlCgpgYGAKCgpNb3ZlIGFsbCBwcnVuZWQgb3R1IHRhYmxlcyBpbnRvIG9uZSB0YWJsZSBieSBtYXRjaGluZyB0aGUgc2FtcGxlIFR5cGUtIHdpbGwgdXNlIHRoaXMgZm9yIFNwYXJDQwpgYGB7cn0KYWxsZG9tYWluc19kZl9veHljbGluZSA8LSBiaW5kX3Jvd3MoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYmFjX294eWNsaW5lX3BydW5lZCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19hcmNoX294eWNsaW5lX3BydW5lZCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkKSkpCmFsbGRvbWFpbnNfZGZfb3h5Y2xpbmUKYGBgCgpDaGFuZ2Ugcm93IG5hbWVzIGZyb20gImRlbm92b1hYWCIgdG8gbWVhbmluZ2Z1bCBuYW1lcwpgYGB7cn0KYWxsZG9tYWluc19kZl9mdWxsX294eWNsaW5lIDwtIGNiaW5kKElEID0gcm93bmFtZXMoYWxsZG9tYWluc19kZl9veHljbGluZSksIGFsbGRvbWFpbnNfZGZfb3h5Y2xpbmUpCgojIHN0YXJ0IHdpdGggb25seSBmaXJzdCByb3dzLCB3aGljaCBhcmUgYmFjdGVyaWEuIG1ha2Ugb25lIGNvbHVtbiBvZiBtZWFuaW5nZnVsIGxhYmVscwp0ZW1wMSA8LSBsZWZ0X2pvaW4oYWxsZG9tYWluc19kZl9mdWxsX294eWNsaW5lWzE6ZGltKG90dV90YWJsZShwc19iYWNfb3h5Y2xpbmVfcHJ1bmVkKSlbMV0sXSwgYmFjX3RheG9ub215LCBieSA9IGMoIklEIiA9ICIjT1RVIElEIikpIAp0ZW1wMSROZXdfSUQgPC0gcGFzdGUodGVtcDEkSUQsIHRlbXAxJCJ0YXhvbm9teS0yIiwgdGVtcDEkInRheG9ub215LTMiLCB0ZW1wMSQidGF4b25vbXktNCIpCnRlbXAxIDwtIHNlbGVjdCh0ZW1wMSwtY29sbmFtZXMoYmFjX3RheG9ub215WywyOjExXSkpCgojIG5leHQgcm93cyBhcmUgdGhlIGFyY2hhZWEgCnRlbXAyIDwtIGxlZnRfam9pbihhbGxkb21haW5zX2RmX2Z1bGxfb3h5Y2xpbmVbc3VtKGRpbShvdHVfdGFibGUocHNfYmFjX294eWNsaW5lX3BydW5lZCkpWzFdLDEpOnN1bShkaW0ob3R1X3RhYmxlKHBzX2JhY19veHljbGluZV9wcnVuZWQpKVsxXSxkaW0ob3R1X3RhYmxlKHBzX2FyY2hfb3h5Y2xpbmVfcHJ1bmVkKSlbMV0pLF0sIGFyY2hfdGF4b25vbXksIGJ5ID0gYygiSUQiID0gIiNPVFUgSUQiKSkgCnRlbXAyJE5ld19JRCA8LSBwYXN0ZSh0ZW1wMiRJRCwgdGVtcDIkInRheG9ub215LTIiLCB0ZW1wMiQidGF4b25vbXktMyIpCnRlbXAyIDwtIHNlbGVjdCh0ZW1wMiwtY29sbmFtZXMoYXJjaF90YXhvbm9teVssMjo5XSkpCgoKIyBsYXN0IHJvd3MgYXJlIGV1a2FyeWEKZXVrX3RheG9ub215IDwtIGNiaW5kKCIjQVNWIElEIiA9IHJvd25hbWVzKHRheG9ub215KSwgdGF4b25vbXkpCnRlbXAzIDwtIGxlZnRfam9pbihhbGxkb21haW5zX2RmX2Z1bGxfb3h5Y2xpbmVbc3VtKGRpbShvdHVfdGFibGUocHNfYXJjaF9veHljbGluZV9wcnVuZWQpKVsxXSwgZGltKG90dV90YWJsZShwc19iYWNfb3h5Y2xpbmVfcHJ1bmVkKSlbMV0sMSk6c3VtKGRpbShvdHVfdGFibGUocHNfYXJjaF9veHljbGluZV9wcnVuZWQpKVsxXSwgZGltKG90dV90YWJsZShwc19iYWNfb3h5Y2xpbmVfcHJ1bmVkKSlbMV0sZGltKG90dV90YWJsZShwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkKSlbMV0pLF0sIGV1a190YXhvbm9teSwgYnkgPSBjKCJJRCIgPSAiI0FTViBJRCIpKSAKdGVtcDMkTmV3X0lEIDwtIHBhc3RlKHRlbXAzJElELCB0ZW1wMyQiU3VwZXJncm91cCIsIHRlbXAzJCJEaXZpc2lvbiIsIHRlbXAzJCJDbGFzcyIsIHRlbXAzJCJPcmRlciIpCnRlbXAzIDwtIHNlbGVjdCh0ZW1wMywtY29sbmFtZXMoZXVrX3RheG9ub215WywyOjldKSkKCiMgY29tYmluZSBiYWNrIGFsbCAzIGRvbWFpbnMsIHdpdGggbmV3IG5hbWVzIGFzIHJvdyBuYW1lcyBpbiBhIGRhdGFmcmFtZQphbGxkb21haW5zX2RmX2Z1bGxfb3h5Y2xpbmUgPC0gcmJpbmQodGVtcDEsIHRlbXAyLCB0ZW1wMykKYWxsZG9tYWluc19kZl9mdWxsX294eWNsaW5lIDwtIGRhdGEuZnJhbWUoYWxsZG9tYWluc19kZl9mdWxsX294eWNsaW5lKQpyb3duYW1lcyhhbGxkb21haW5zX2RmX2Z1bGxfb3h5Y2xpbmUpIDwtIGFsbGRvbWFpbnNfZGZfZnVsbF9veHljbGluZSROZXdfSUQKYWxsZG9tYWluc19kZl9mdWxsX294eWNsaW5lIDwtIHNlbGVjdChhbGxkb21haW5zX2RmX2Z1bGxfb3h5Y2xpbmUsIC1jKCJJRCIsIk5ld19JRCIpKQphbGxkb21haW5zX2RmX2Z1bGxfb3h5Y2xpbmUKYGBgCgoKClJlbW92ZSBjb2x1bW5zIHdpdGggTkFzLiBUaGVzZSBhcmUgc2FtcGxlcyBmb3Igd2hpY2ggdGhlIGxpYnJhcnkgZm9yIGF0IGxlYXN0IG9uZSBkb21haW4gZGlkbid0IHdvcmsgKGNhbid0IGRvIGNvcnJlbGF0aW9ucyB3aXRoIG1pc3NpbmcgdmFsdWVzIGluIGNvbHVtbnMpCmBgYHtyfQphbGxkb21haW5zX2RmX2Z1bGxfb3h5Y2xpbmUgPC0gYWxsZG9tYWluc19kZl9mdWxsX294eWNsaW5lICU+JQogICAgc2VsZWN0X2lmKH4gIWFueShpcy5uYSguKSkpCmFsbGRvbWFpbnNfZGZfZnVsbF9veHljbGluZQoKYWxsZG9tYWluc19kZl9veHljbGluZSA8LSBhbGxkb21haW5zX2RmX294eWNsaW5lICU+JQogICAgc2VsZWN0X2lmKH4gIWFueShpcy5uYSguKSkpCmFsbGRvbWFpbnNfZGZfb3h5Y2xpbmUKYGBgCjIxIHNhbXBsZXMgcmVtYWluIGZvciBjb3JyZWxhdGlvbgoKCgoKCgoKCiMjIyBGaWx0ZXIgbG93IGFidW5kYW5jZSBzcGVjaWVzLSBhbm94aWMgZGVwdGhzIG9ubHkKClB1bGwgb3V0IHNhbXBsZXMgZnJvbSBzaGFsbG93IGFub3hpYyByZWdpbWUKYGBge3J9CiMgUHVsbCBvdXQgYW5veGljIGxheWVyIGJhY3RlcmlhIHNhbXBsZSBJRHMKYW5veGljdHlwZXNfYmFjIDwtIG1ldGFkYXRhICU+JSAKICBmaWx0ZXIoYFNhbXBsZSBOYW1lYCAlaW4lIHNhbXBsZV9uYW1lcyhwc19iYWMpKSAlPiUKICBmaWx0ZXIoT3hDb25kID09ICJTaGFsbG93QW5veGljIikgJT4lIAogIHNlbGVjdCgiU2FtcGxlIE5hbWUiKQphbm94aWN0eXBlc19iYWMgPC0gdW5saXN0KGModW5pcXVlKGFub3hpY3R5cGVzX2JhYykpLCB1c2UubmFtZXMgPSBGQUxTRSkKCiMgUHVsbCBvdXQgYWxsIGJhY3RlcmlhIGZyb20gYW5veGljIGxheWVyCnBzX2JhY19hbm94aWMgPC0gIHBydW5lX3NhbXBsZXMoYW5veGljdHlwZXNfYmFjLCBwc19iYWMpCnBzX2JhY19yYV9hbm94aWMgPC0gIHBydW5lX3NhbXBsZXMoYW5veGljdHlwZXNfYmFjLCBwc19iYWNfcmEpCgojIFB1bGwgb3V0IGFub3hpYyBsYXllciBhcmNoYWVhIHNhbXBsZSBJRHMKYW5veGljdHlwZXNfYXJjaCA8LSBtZXRhZGF0YSAlPiUgCiAgZmlsdGVyKGBTYW1wbGUgTmFtZWAgJWluJSBzYW1wbGVfbmFtZXMocHNfYXJjaCkpICU+JQogIGZpbHRlcihPeENvbmQgPT0gIlNoYWxsb3dBbm94aWMiKSAlPiUgCiAgc2VsZWN0KCJTYW1wbGUgTmFtZSIpCmFub3hpY3R5cGVzX2FyY2ggPC0gdW5saXN0KGModW5pcXVlKGFub3hpY3R5cGVzX2FyY2gpKSwgdXNlLm5hbWVzID0gRkFMU0UpCgojIFB1bGwgb3V0IGFsbCBhcmNoYWVhIGZyb20gYW5veGljIGxheWVyCnBzX2FyY2hfYW5veGljPC0gIHBydW5lX3NhbXBsZXMoYW5veGljdHlwZXNfYXJjaCwgcHNfYXJjaCkKcHNfYXJjaF9yYV9hbm94aWMgPC0gIHBydW5lX3NhbXBsZXMoYW5veGljdHlwZXNfYXJjaCwgcHNfYXJjaF9yYSkKCiMgUHVsbCBvdXQgYW5veGljIGxheWVyIGV1a2FyeW90aWMgc2FtcGxlIElEcwphbm94aWN0eXBlc19ldWsgPC0gbWV0YWRhdGEgJT4lIAogIGZpbHRlcihgU2FtcGxlIE5hbWVgICVpbiUgc2FtcGxlX25hbWVzKHBzKSkgJT4lCiAgZmlsdGVyKE94Q29uZCA9PSAiU2hhbGxvd0Fub3hpYyIpICU+JSAKICBzZWxlY3QoIlNhbXBsZSBOYW1lIikKYW5veGljdHlwZXNfZXVrIDwtIHVubGlzdChjKHVuaXF1ZShhbm94aWN0eXBlc19ldWspKSwgdXNlLm5hbWVzID0gRkFMU0UpCgojIFB1bGwgb3V0IGFsbCBldWthcnlvdGVzIGZyb20gYW5veGljIGxheWVyCnBzX2V1a19hbm94aWMgPC0gIHBydW5lX3NhbXBsZXMoYW5veGljdHlwZXNfZXVrLCBwcykKcHNfZXVrX3JhX2Fub3hpYyA8LSAgcHJ1bmVfc2FtcGxlcyhhbm94aWN0eXBlc19ldWssIHBzX3JhKQoKYGBgCgpGaWx0ZXIgb3V0IGxvdyBhYnVuZGFuY2UgdGF4YSBmcm9tIHRoZSBveHljbGluZSBzYW1wbGVzLiBVc2UgNSUgYXMgY3V0b2ZmIApgYGB7cn0KIyBCYWN0ZXJpYQp4IDwtIHRheGFfc3Vtcyhwc19iYWNfcmFfYW5veGljKQprZWVwVGF4YSA8LSAgeD4uMDUgIyBwcnVuZV90YXhhIHJlcXVpcmUgYSBsb2dpY2FsIG5vdCBhIGxpc3Qgb2YgSURzLiBjb21wYXJlIHRvIGtlZXBUYXhhIGFib3ZlIHRvIGNoZWNrCnBzX2JhY19yYV9hbm94aWNfcHJ1bmVkIDwtICBwcnVuZV90YXhhKGtlZXBUYXhhLCBwc19iYWNfcmFfYW5veGljKQpwc19iYWNfYW5veGljX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfYmFjX2Fub3hpYykKcHNfYmFjX3JhX2Fub3hpY19wcnVuZWQKcHNfYmFjX2Fub3hpY19wcnVuZWQKCiMgQXJjaGFlYQp4IDwtIHRheGFfc3Vtcyhwc19hcmNoX3JhX2Fub3hpYykKa2VlcFRheGEgPC0gIHg+LjA1ICMgcHJ1bmVfdGF4YSByZXF1aXJlIGEgbG9naWNhbCBub3QgYSBsaXN0IG9mIElEcy4gY29tcGFyZSB0byBrZWVwVGF4YSBhYm92ZSB0byBjaGVjawpwc19hcmNoX3JhX2Fub3hpY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2FyY2hfcmFfYW5veGljKQpwc19hcmNoX2Fub3hpY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2FyY2hfYW5veGljKQpwc19hcmNoX3JhX2Fub3hpY19wcnVuZWQKcHNfYXJjaF9hbm94aWNfcHJ1bmVkCgojIEV1a2FyeW90ZXMKeCA8LSB0YXhhX3N1bXMocHNfZXVrX3JhX2Fub3hpYykKa2VlcFRheGEgPC0gIHg+LjA1ICMgcHJ1bmVfdGF4YSByZXF1aXJlIGEgbG9naWNhbCBub3QgYSBsaXN0IG9mIElEcy4gY29tcGFyZSB0byBrZWVwVGF4YSBhYm92ZSB0byBjaGVjawpwc19ldWtfcmFfYW5veGljX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfZXVrX3JhX2Fub3hpYykKcHNfZXVrX2Fub3hpY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2V1a19hbm94aWMpCnBzX2V1a19yYV9hbm94aWNfcHJ1bmVkCnBzX2V1a19hbm94aWNfcHJ1bmVkCgpgYGAKMzIgYmFjdGVyaWEsIDE5IGFyY2hhZWEsIDM3IGV1a2FyeW90YSByZW1haW4KCgpDaGFuZ2UgdGhlIHNhbXBsZSBuYW1lcyBpbiB0aGUgb3R1IHRhYmxlcyB0byAiVHlwZSIKYGBge3J9CiMgQXJjaGFlYQojIHJlbW92ZSBtaXNzaW5nIGFyY2hhZWEgc2FtcGxlcyBmcm9tIHNhbXBsZWtleV9BCnNhbXBsZWtleV9BIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2FyY2ggICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2FyY2hfcmFfYW5veGljX3BydW5lZCkpKQojIHNvcnQgU2FtcGxlS2V5IGJ5IG9yZGVyIG9mIGNvbHVtbiBuYW1lcyBmcm9tIHBzX2FyY2hfcmFfYW5veGljX3BydW5lZApzYW1wbGVrZXlfQSA8LSBzYW1wbGVrZXlfQSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfYXJjaCwgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2FyY2hfcmFfYW5veGljX3BydW5lZCkpKSkKIyByZXBsYWNlIGNvbCBuYW1lcyBvZiBvdHUgdGFibGUgZnJvbSBwc19hcmNoX3JhX2Fub3hpY19wcnVuZWQKc2FtcGxlX25hbWVzKHBzX2FyY2hfcmFfYW5veGljX3BydW5lZCkgPC0gc2FtcGxla2V5X0EkVHlwZQojIGFuZCBwc19hcmNoX3BydW5lZApzYW1wbGVfbmFtZXMocHNfYXJjaF9hbm94aWNfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfQSRUeXBlCgojIEJhY3RlcmlhCnNhbXBsZWtleV9CIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2JhYyAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYmFjX3JhX2Fub3hpY19wcnVuZWQpKSkKc2FtcGxla2V5X0IgPC0gc2FtcGxla2V5X0IgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2JhYywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY19yYV9hbm94aWNfcHJ1bmVkKSkpKQpzYW1wbGVfbmFtZXMocHNfYmFjX3JhX2Fub3hpY19wcnVuZWQpIDwtIHNhbXBsZWtleV9CJFR5cGUKc2FtcGxlX25hbWVzKHBzX2JhY19hbm94aWNfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfQiRUeXBlCgoKIyBFdWthcnlvdGVzCnNhbXBsZWtleV9FIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2V1ayAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX3JhX2Fub3hpY19wcnVuZWQpKSkKc2FtcGxla2V5X0UgPC0gc2FtcGxla2V5X0UgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2V1aywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2V1a19yYV9hbm94aWNfcHJ1bmVkKSkpKQpzYW1wbGVfbmFtZXMocHNfZXVrX3JhX2Fub3hpY19wcnVuZWQpIDwtIHNhbXBsZWtleV9FJFR5cGUKc2FtcGxlX25hbWVzKHBzX2V1a19hbm94aWNfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfRSRUeXBlCgpgYGAKCgpNb3ZlIGFsbCBwcnVuZWQgb3R1IHRhYmxlcyBpbnRvIG9uZSB0YWJsZSBieSBtYXRjaGluZyB0aGUgc2FtcGxlIFR5cGUtIHdpbGwgdXNlIHRoaXMgZm9yIFNwYXJDQwpgYGB7cn0KYWxsZG9tYWluc19kZl9hbm94aWMgPC0gYmluZF9yb3dzKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX2JhY19hbm94aWNfcHJ1bmVkKSksIGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX2FyY2hfYW5veGljX3BydW5lZCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19ldWtfYW5veGljX3BydW5lZCkpKQphbGxkb21haW5zX2RmX2Fub3hpYwpgYGAKCkNoYW5nZSByb3cgbmFtZXMgZnJvbSAiZGVub3ZvWFhYIiB0byBtZWFuaW5nZnVsIG5hbWVzCmBgYHtyfQphbGxkb21haW5zX2RmX2Z1bGxfYW5veGljIDwtIGNiaW5kKElEID0gcm93bmFtZXMoYWxsZG9tYWluc19kZl9hbm94aWMpLCBhbGxkb21haW5zX2RmX2Fub3hpYykKCiMgc3RhcnQgd2l0aCBvbmx5IGZpcnN0IHJvd3MsIHdoaWNoIGFyZSBiYWN0ZXJpYS4gbWFrZSBvbmUgY29sdW1uIG9mIG1lYW5pbmdmdWwgbGFiZWxzCnRlbXAxIDwtIGxlZnRfam9pbihhbGxkb21haW5zX2RmX2Z1bGxfYW5veGljWzE6ZGltKG90dV90YWJsZShwc19iYWNfYW5veGljX3BydW5lZCkpWzFdLF0sIGJhY190YXhvbm9teSwgYnkgPSBjKCJJRCIgPSAiI09UVSBJRCIpKSAKdGVtcDEkTmV3X0lEIDwtIHBhc3RlKHRlbXAxJElELCB0ZW1wMSQidGF4b25vbXktMiIsIHRlbXAxJCJ0YXhvbm9teS0zIiwgdGVtcDEkInRheG9ub215LTQiKQp0ZW1wMSA8LSBzZWxlY3QodGVtcDEsLWNvbG5hbWVzKGJhY190YXhvbm9teVssMjoxMV0pKQoKIyBuZXh0IHJvd3MgYXJlIHRoZSBhcmNoYWVhIAp0ZW1wMiA8LSBsZWZ0X2pvaW4oYWxsZG9tYWluc19kZl9mdWxsX2Fub3hpY1tzdW0oZGltKG90dV90YWJsZShwc19iYWNfYW5veGljX3BydW5lZCkpWzFdLDEpOnN1bShkaW0ob3R1X3RhYmxlKHBzX2JhY19hbm94aWNfcHJ1bmVkKSlbMV0sZGltKG90dV90YWJsZShwc19hcmNoX2Fub3hpY19wcnVuZWQpKVsxXSksXSwgYXJjaF90YXhvbm9teSwgYnkgPSBjKCJJRCIgPSAiI09UVSBJRCIpKSAKdGVtcDIkTmV3X0lEIDwtIHBhc3RlKHRlbXAyJElELCB0ZW1wMiQidGF4b25vbXktMiIsIHRlbXAyJCJ0YXhvbm9teS0zIikKdGVtcDIgPC0gc2VsZWN0KHRlbXAyLC1jb2xuYW1lcyhhcmNoX3RheG9ub215WywyOjldKSkKCgojIGxhc3Qgcm93cyBhcmUgZXVrYXJ5YQpldWtfdGF4b25vbXkgPC0gY2JpbmQoIiNBU1YgSUQiID0gcm93bmFtZXModGF4b25vbXkpLCB0YXhvbm9teSkKdGVtcDMgPC0gbGVmdF9qb2luKGFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWNbc3VtKGRpbShvdHVfdGFibGUocHNfYXJjaF9hbm94aWNfcHJ1bmVkKSlbMV0sIGRpbShvdHVfdGFibGUocHNfYmFjX2Fub3hpY19wcnVuZWQpKVsxXSwxKTpzdW0oZGltKG90dV90YWJsZShwc19hcmNoX2Fub3hpY19wcnVuZWQpKVsxXSwgZGltKG90dV90YWJsZShwc19iYWNfYW5veGljX3BydW5lZCkpWzFdLGRpbShvdHVfdGFibGUocHNfZXVrX2Fub3hpY19wcnVuZWQpKVsxXSksXSwgZXVrX3RheG9ub215LCBieSA9IGMoIklEIiA9ICIjQVNWIElEIikpIAp0ZW1wMyROZXdfSUQgPC0gcGFzdGUodGVtcDMkSUQsIHRlbXAzJCJTdXBlcmdyb3VwIiwgdGVtcDMkIkRpdmlzaW9uIiwgdGVtcDMkIkNsYXNzIiwgdGVtcDMkIk9yZGVyIikKdGVtcDMgPC0gc2VsZWN0KHRlbXAzLC1jb2xuYW1lcyhldWtfdGF4b25vbXlbLDI6OV0pKQoKIyBjb21iaW5lIGJhY2sgYWxsIDMgZG9tYWlucywgd2l0aCBuZXcgbmFtZXMgYXMgcm93IG5hbWVzIGluIGEgZGF0YWZyYW1lCmFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMgPC0gcmJpbmQodGVtcDEsIHRlbXAyLCB0ZW1wMykKYWxsZG9tYWluc19kZl9mdWxsX2Fub3hpYyA8LSBkYXRhLmZyYW1lKGFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMpCnJvd25hbWVzKGFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMpIDwtIGFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMkTmV3X0lECmFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMgPC0gc2VsZWN0KGFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMsIC1jKCJJRCIsIk5ld19JRCIpKQphbGxkb21haW5zX2RmX2Z1bGxfYW5veGljCmBgYAoKCgpSZW1vdmUgY29sdW1ucyB3aXRoIE5Bcy4gVGhlc2UgYXJlIHNhbXBsZXMgZm9yIHdoaWNoIHRoZSBsaWJyYXJ5IGZvciBhdCBsZWFzdCBvbmUgZG9tYWluIGRpZG4ndCB3b3JrIChjYW4ndCBkbyBjb3JyZWxhdGlvbnMgd2l0aCBtaXNzaW5nIHZhbHVlcyBpbiBjb2x1bW5zKQpgYGB7cn0KYWxsZG9tYWluc19kZl9mdWxsX2Fub3hpYyA8LSBhbGxkb21haW5zX2RmX2Z1bGxfYW5veGljICU+JQogICAgc2VsZWN0X2lmKH4gIWFueShpcy5uYSguKSkpCmFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMKCmFsbGRvbWFpbnNfZGZfYW5veGljIDwtIGFsbGRvbWFpbnNfZGZfYW5veGljICU+JQogICAgc2VsZWN0X2lmKH4gIWFueShpcy5uYSguKSkpCmFsbGRvbWFpbnNfZGZfYW5veGljCmBgYAoxMSBzYW1wbGVzIHJlbWFpbiBmb3IgY29ycmVsYXRpb24KCgoKCgojIyMgRmlsdGVyIGxvdyBhYnVuZGFuY2Ugc3BlY2llcy0gZXV4aW5pYyBkZXB0aHMgb25seQoKUHVsbCBvdXQgc2FtcGxlcyBmcm9tIGV1eGluaWMgcmVnaW1lCmBgYHtyfQojIFB1bGwgb3V0IGFub3hpYyBsYXllciBiYWN0ZXJpYSBzYW1wbGUgSURzCmV1eGluaWN0eXBlc19iYWMgPC0gbWV0YWRhdGEgJT4lIAogIGZpbHRlcihgU2FtcGxlIE5hbWVgICVpbiUgc2FtcGxlX25hbWVzKHBzX2JhYykpICU+JQogIGZpbHRlcihPeENvbmQgPT0gIkV1eGluaWMiKSAlPiUgCiAgc2VsZWN0KCJTYW1wbGUgTmFtZSIpCmV1eGluaWN0eXBlc19iYWMgPC0gdW5saXN0KGModW5pcXVlKGV1eGluaWN0eXBlc19iYWMpKSwgdXNlLm5hbWVzID0gRkFMU0UpCgojIFB1bGwgb3V0IGFsbCBiYWN0ZXJpYSBmcm9tIGV1eGluaWMgbGF5ZXIKcHNfYmFjX2V1eGluaWMgPC0gIHBydW5lX3NhbXBsZXMoZXV4aW5pY3R5cGVzX2JhYywgcHNfYmFjKQpwc19iYWNfcmFfZXV4aW5pYyA8LSAgcHJ1bmVfc2FtcGxlcyhldXhpbmljdHlwZXNfYmFjLCBwc19iYWNfcmEpCgoKIyBQdWxsIG91dCBldXhpbmljIGxheWVyIGFyY2hhZWEgc2FtcGxlIElEcwpldXhpbmljdHlwZXNfYXJjaCA8LSBtZXRhZGF0YSAlPiUgCiAgZmlsdGVyKGBTYW1wbGUgTmFtZWAgJWluJSBzYW1wbGVfbmFtZXMocHNfYXJjaCkpICU+JQogIGZpbHRlcihPeENvbmQgPT0gIkV1eGluaWMiKSAlPiUgCiAgc2VsZWN0KCJTYW1wbGUgTmFtZSIpCmV1eGluaWN0eXBlc19hcmNoIDwtIHVubGlzdChjKHVuaXF1ZShldXhpbmljdHlwZXNfYXJjaCkpLCB1c2UubmFtZXMgPSBGQUxTRSkKCiMgUHVsbCBvdXQgYWxsIGFyY2hhZWEgZnJvbSBldXhpbmljIGxheWVyCnBzX2FyY2hfZXV4aW5pYzwtICBwcnVuZV9zYW1wbGVzKGV1eGluaWN0eXBlc19hcmNoLCBwc19hcmNoKQpwc19hcmNoX3JhX2V1eGluaWMgPC0gIHBydW5lX3NhbXBsZXMoZXV4aW5pY3R5cGVzX2FyY2gsIHBzX2FyY2hfcmEpCgoKCiMgUHVsbCBvdXQgZXV4aW5pYyBsYXllciBldWthcnlvdGljIHNhbXBsZSBJRHMKZXV4aW5pY3R5cGVzX2V1ayA8LSBtZXRhZGF0YSAlPiUgCiAgZmlsdGVyKGBTYW1wbGUgTmFtZWAgJWluJSBzYW1wbGVfbmFtZXMocHMpKSAlPiUKICBmaWx0ZXIoT3hDb25kID09ICJFdXhpbmljIikgJT4lIAogIHNlbGVjdCgiU2FtcGxlIE5hbWUiKQpldXhpbmljdHlwZXNfZXVrIDwtIHVubGlzdChjKHVuaXF1ZShldXhpbmljdHlwZXNfZXVrKSksIHVzZS5uYW1lcyA9IEZBTFNFKQoKIyBQdWxsIG91dCBhbGwgZXVrYXJ5b3RlcyBmcm9tIGV1eGluaWMgbGF5ZXIKcHNfZXVrX2V1eGluaWMgPC0gIHBydW5lX3NhbXBsZXMoZXV4aW5pY3R5cGVzX2V1aywgcHMpCnBzX2V1a19yYV9ldXhpbmljIDwtICBwcnVuZV9zYW1wbGVzKGV1eGluaWN0eXBlc19ldWssIHBzX3JhKQoKYGBgCgpGaWx0ZXIgb3V0IGxvdyBhYnVuZGFuY2UgdGF4YSBmcm9tIHRoZSBveHljbGluZSBzYW1wbGVzLiBVc2UgNSUgYXMgY3V0b2ZmIApgYGB7cn0KIyBCYWN0ZXJpYQp4IDwtIHRheGFfc3Vtcyhwc19iYWNfcmFfZXV4aW5pYykKa2VlcFRheGEgPC0gIHg+LjA1ICMgcHJ1bmVfdGF4YSByZXF1aXJlIGEgbG9naWNhbCBub3QgYSBsaXN0IG9mIElEcy4gY29tcGFyZSB0byBrZWVwVGF4YSBhYm92ZSB0byBjaGVjawpwc19iYWNfcmFfZXV4aW5pY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2JhY19yYV9ldXhpbmljKQpwc19iYWNfZXV4aW5pY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2JhY19ldXhpbmljKQpwc19iYWNfcmFfZXV4aW5pY19wcnVuZWQKcHNfYmFjX2V1eGluaWNfcHJ1bmVkCgojIEFyY2hhZWEKeCA8LSB0YXhhX3N1bXMocHNfYXJjaF9yYV9ldXhpbmljKQprZWVwVGF4YSA8LSAgeD4uMDUgIyBwcnVuZV90YXhhIHJlcXVpcmUgYSBsb2dpY2FsIG5vdCBhIGxpc3Qgb2YgSURzLiBjb21wYXJlIHRvIGtlZXBUYXhhIGFib3ZlIHRvIGNoZWNrCnBzX2FyY2hfcmFfZXV4aW5pY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2FyY2hfcmFfZXV4aW5pYykKcHNfYXJjaF9ldXhpbmljX3BydW5lZCA8LSAgcHJ1bmVfdGF4YShrZWVwVGF4YSwgcHNfYXJjaF9ldXhpbmljKQpwc19hcmNoX3JhX2V1eGluaWNfcHJ1bmVkCnBzX2FyY2hfZXV4aW5pY19wcnVuZWQKCiMgRXVrYXJ5b3Rlcwp4IDwtIHRheGFfc3Vtcyhwc19ldWtfcmFfZXV4aW5pYykKa2VlcFRheGEgPC0gIHg+LjA1ICMgcHJ1bmVfdGF4YSByZXF1aXJlIGEgbG9naWNhbCBub3QgYSBsaXN0IG9mIElEcy4gY29tcGFyZSB0byBrZWVwVGF4YSBhYm92ZSB0byBjaGVjawpwc19ldWtfcmFfZXV4aW5pY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2V1a19yYV9ldXhpbmljKQpwc19ldWtfZXV4aW5pY19wcnVuZWQgPC0gIHBydW5lX3RheGEoa2VlcFRheGEsIHBzX2V1a19ldXhpbmljKQpwc19ldWtfcmFfZXV4aW5pY19wcnVuZWQKcHNfZXVrX2V1eGluaWNfcHJ1bmVkCgpgYGAKMTYgYmFjdGVyaWEsIDE2IGFyY2hhZWEsIDIwIGV1a2FyeW90YSByZW1haW4KCgpDaGFuZ2UgdGhlIHNhbXBsZSBuYW1lcyBpbiB0aGUgb3R1IHRhYmxlcyB0byAiVHlwZSIKYGBge3J9CiMgQXJjaGFlYQojIHJlbW92ZSBtaXNzaW5nIGFyY2hhZWEgc2FtcGxlcyBmcm9tIHNhbXBsZWtleV9BCnNhbXBsZWtleV9BIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2FyY2ggICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2FyY2hfcmFfZXV4aW5pY19wcnVuZWQpKSkKIyBzb3J0IFNhbXBsZUtleSBieSBvcmRlciBvZiBjb2x1bW4gbmFtZXMgZnJvbSBwc19hcmNoX3JhX2V1eGluaWNfcHJ1bmVkCnNhbXBsZWtleV9BIDwtIHNhbXBsZWtleV9BICU+JSBhcnJhbmdlKGZhY3RvcihTYW1wbGVJRF9hcmNoLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYXJjaF9yYV9ldXhpbmljX3BydW5lZCkpKSkKIyByZXBsYWNlIGNvbCBuYW1lcyBvZiBvdHUgdGFibGUgZnJvbSBwc19hcmNoX3JhX2V1eGluaWNfcHJ1bmVkCnNhbXBsZV9uYW1lcyhwc19hcmNoX3JhX2V1eGluaWNfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfQSRUeXBlCiMgYW5kIHBzX2FyY2hfcHJ1bmVkCnNhbXBsZV9uYW1lcyhwc19hcmNoX2V1eGluaWNfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfQSRUeXBlCgoKIyBCYWN0ZXJpYQpzYW1wbGVrZXlfQiA8LSBmaWx0ZXIoc2FtcGxla2V5LCBTYW1wbGVJRF9iYWMgICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY19yYV9ldXhpbmljX3BydW5lZCkpKQpzYW1wbGVrZXlfQiA8LSBzYW1wbGVrZXlfQiAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfYmFjLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYmFjX3JhX2V1eGluaWNfcHJ1bmVkKSkpKQpzYW1wbGVfbmFtZXMocHNfYmFjX3JhX2V1eGluaWNfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfQiRUeXBlCnNhbXBsZV9uYW1lcyhwc19iYWNfZXV4aW5pY19wcnVuZWQpIDwtIHNhbXBsZWtleV9CJFR5cGUKCgojIEV1a2FyeW90ZXMKc2FtcGxla2V5X0UgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfZXVrICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19ldWtfcmFfZXV4aW5pY19wcnVuZWQpKSkKc2FtcGxla2V5X0UgPC0gc2FtcGxla2V5X0UgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2V1aywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2V1a19yYV9ldXhpbmljX3BydW5lZCkpKSkKc2FtcGxlX25hbWVzKHBzX2V1a19yYV9ldXhpbmljX3BydW5lZCkgPC0gc2FtcGxla2V5X0UkVHlwZQpzYW1wbGVfbmFtZXMocHNfZXVrX2V1eGluaWNfcHJ1bmVkKSA8LSBzYW1wbGVrZXlfRSRUeXBlCgpgYGAKCgpNb3ZlIGFsbCBwcnVuZWQgb3R1IHRhYmxlcyBpbnRvIG9uZSB0YWJsZSBieSBtYXRjaGluZyB0aGUgc2FtcGxlIFR5cGUtIHdpbGwgdXNlIHRoaXMgZm9yIFNwYXJDQwpgYGB7cn0KYWxsZG9tYWluc19kZl9ldXhpbmljIDwtIGJpbmRfcm93cyhkYXRhLmZyYW1lKG90dV90YWJsZShwc19iYWNfZXV4aW5pY19wcnVuZWQpKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYXJjaF9ldXhpbmljX3BydW5lZCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19ldWtfZXV4aW5pY19wcnVuZWQpKSkKYWxsZG9tYWluc19kZl9ldXhpbmljCmBgYAoKQ2hhbmdlIHJvdyBuYW1lcyBmcm9tICJkZW5vdm9YWFgiIHRvIG1lYW5pbmdmdWwgbmFtZXMKYGBge3J9CmFsbGRvbWFpbnNfZGZfZnVsbF9ldXhpbmljIDwtIGNiaW5kKElEID0gcm93bmFtZXMoYWxsZG9tYWluc19kZl9ldXhpbmljKSwgYWxsZG9tYWluc19kZl9ldXhpbmljKQoKIyBzdGFydCB3aXRoIG9ubHkgZmlyc3Qgcm93cywgd2hpY2ggYXJlIGJhY3RlcmlhLiBtYWtlIG9uZSBjb2x1bW4gb2YgbWVhbmluZ2Z1bCBsYWJlbHMKdGVtcDEgPC0gbGVmdF9qb2luKGFsbGRvbWFpbnNfZGZfZnVsbF9ldXhpbmljWzE6ZGltKG90dV90YWJsZShwc19iYWNfZXV4aW5pY19wcnVuZWQpKVsxXSxdLCBiYWNfdGF4b25vbXksIGJ5ID0gYygiSUQiID0gIiNPVFUgSUQiKSkgCnRlbXAxJE5ld19JRCA8LSBwYXN0ZSh0ZW1wMSRJRCwgdGVtcDEkInRheG9ub215LTIiLCB0ZW1wMSQidGF4b25vbXktMyIsIHRlbXAxJCJ0YXhvbm9teS00IikKdGVtcDEgPC0gc2VsZWN0KHRlbXAxLC1jb2xuYW1lcyhiYWNfdGF4b25vbXlbLDI6MTFdKSkKCiMgbmV4dCByb3dzIGFyZSB0aGUgYXJjaGFlYSAKdGVtcDIgPC0gbGVmdF9qb2luKGFsbGRvbWFpbnNfZGZfZnVsbF9ldXhpbmljW3N1bShkaW0ob3R1X3RhYmxlKHBzX2JhY19ldXhpbmljX3BydW5lZCkpWzFdLDEpOnN1bShkaW0ob3R1X3RhYmxlKHBzX2JhY19ldXhpbmljX3BydW5lZCkpWzFdLGRpbShvdHVfdGFibGUocHNfYXJjaF9ldXhpbmljX3BydW5lZCkpWzFdKSxdLCBhcmNoX3RheG9ub215LCBieSA9IGMoIklEIiA9ICIjT1RVIElEIikpIAp0ZW1wMiROZXdfSUQgPC0gcGFzdGUodGVtcDIkSUQsIHRlbXAyJCJ0YXhvbm9teS0yIiwgdGVtcDIkInRheG9ub215LTMiKQp0ZW1wMiA8LSBzZWxlY3QodGVtcDIsLWNvbG5hbWVzKGFyY2hfdGF4b25vbXlbLDI6OV0pKQoKCiMgbGFzdCByb3dzIGFyZSBldWthcnlhCmV1a190YXhvbm9teSA8LSBjYmluZCgiI0FTViBJRCIgPSByb3duYW1lcyh0YXhvbm9teSksIHRheG9ub215KQp0ZW1wMyA8LSBsZWZ0X2pvaW4oYWxsZG9tYWluc19kZl9mdWxsX2V1eGluaWNbc3VtKGRpbShvdHVfdGFibGUocHNfYXJjaF9ldXhpbmljX3BydW5lZCkpWzFdLCBkaW0ob3R1X3RhYmxlKHBzX2JhY19ldXhpbmljX3BydW5lZCkpWzFdLDEpOnN1bShkaW0ob3R1X3RhYmxlKHBzX2FyY2hfZXV4aW5pY19wcnVuZWQpKVsxXSwgZGltKG90dV90YWJsZShwc19iYWNfZXV4aW5pY19wcnVuZWQpKVsxXSxkaW0ob3R1X3RhYmxlKHBzX2V1a19ldXhpbmljX3BydW5lZCkpWzFdKSxdLCBldWtfdGF4b25vbXksIGJ5ID0gYygiSUQiID0gIiNBU1YgSUQiKSkgCnRlbXAzJE5ld19JRCA8LSBwYXN0ZSh0ZW1wMyRJRCwgdGVtcDMkIlN1cGVyZ3JvdXAiLCB0ZW1wMyQiRGl2aXNpb24iLCB0ZW1wMyQiQ2xhc3MiLCB0ZW1wMyQiT3JkZXIiKQp0ZW1wMyA8LSBzZWxlY3QodGVtcDMsLWNvbG5hbWVzKGV1a190YXhvbm9teVssMjo5XSkpCgojIGNvbWJpbmUgYmFjayBhbGwgMyBkb21haW5zLCB3aXRoIG5ldyBuYW1lcyBhcyByb3cgbmFtZXMgaW4gYSBkYXRhZnJhbWUKYWxsZG9tYWluc19kZl9mdWxsX2V1eGluaWMgPC0gcmJpbmQodGVtcDEsIHRlbXAyLCB0ZW1wMykKYWxsZG9tYWluc19kZl9mdWxsX2V1eGluaWMgPC0gZGF0YS5mcmFtZShhbGxkb21haW5zX2RmX2Z1bGxfZXV4aW5pYykKcm93bmFtZXMoYWxsZG9tYWluc19kZl9mdWxsX2V1eGluaWMpIDwtIGFsbGRvbWFpbnNfZGZfZnVsbF9ldXhpbmljJE5ld19JRAphbGxkb21haW5zX2RmX2Z1bGxfZXV4aW5pYyA8LSBzZWxlY3QoYWxsZG9tYWluc19kZl9mdWxsX2V1eGluaWMsIC1jKCJJRCIsIk5ld19JRCIpKQphbGxkb21haW5zX2RmX2Z1bGxfZXV4aW5pYwpgYGAKCgoKUmVtb3ZlIGNvbHVtbnMgd2l0aCBOQXMuIFRoZXNlIGFyZSBzYW1wbGVzIGZvciB3aGljaCB0aGUgbGlicmFyeSBmb3IgYXQgbGVhc3Qgb25lIGRvbWFpbiBkaWRuJ3Qgd29yayAoY2FuJ3QgZG8gY29ycmVsYXRpb25zIHdpdGggbWlzc2luZyB2YWx1ZXMgaW4gY29sdW1ucykKYGBge3J9CmFsbGRvbWFpbnNfZGZfZnVsbF9ldXhpbmljIDwtIGFsbGRvbWFpbnNfZGZfZnVsbF9ldXhpbmljICU+JQogICAgc2VsZWN0X2lmKH4gIWFueShpcy5uYSguKSkpCmFsbGRvbWFpbnNfZGZfZnVsbF9ldXhpbmljCgphbGxkb21haW5zX2RmX2V1eGluaWMgPC0gYWxsZG9tYWluc19kZl9ldXhpbmljICU+JQogICAgc2VsZWN0X2lmKH4gIWFueShpcy5uYSguKSkpCmFsbGRvbWFpbnNfZGZfZXV4aW5pYwpgYGAKNCBzYW1wbGVzIHJlbWFpbiBmb3IgY29ycmVsYXRpb24KCgoKCgoKIyMgU3BhckNDIAojIyMgU3BhckNDIG9uIGZ1bGwgZGF0YXNldApUaGlzIGlzIGxhcmdlbHkgYmFzZWQgb24gW0JWQ04gdHV0b3JpYWxzXShodHRwczovL2dpdGh1Yi5jb20vYmlvdmNuZXQvYmlvdmNuZXQuZ2l0aHViLmlvL3dpa2kvVE9QSUMlM0EtTmV0d29ya3MpCk5PVEUtIGlucHV0IGZvciBTcGFyQ0Mgc2hvdWxkIGJlIHJhdyBjb3VudCBkYXRhIChhZnRlciBmaWx0ZXJpbmcgb3V0IGxvdy1hYnVuZGFuY2UgQVNWcykuIFRoZSBmdW5jdGlvbiBkb2VzIGEgbG9nLXJhdGlvIHRyYW5zZm9ybWF0aW9uIHRvIGFjY291bnQgZm9yIGNvbXBvc2l0aW9uYWxpdHkKYGBge3J9CiMgSGVscGVyIGZ1bmN0aW9ucyBmcm9tIEouIENyYW0gaHR0cHM6Ly9iaW92Y25ldC5naXRodWIuaW8vX3BhZ2VzL05ldHdvcmtTY2llbmNlX1NwYXJDQy5uYgpwYXNzIDwtIGZ1bmN0aW9uKHgpe3h9IAojIEdldCBsb3dlciB0cmlhbmdsZSBvZiB0aGUgY29ycmVsYXRpb24gbWF0cml4CiAgZ2V0X2xvd2VyX3RyaTwtZnVuY3Rpb24oY29ybWF0KXsKICAgIGNvcm1hdFt1cHBlci50cmkoY29ybWF0KV0gPC0gTkEKICAgIHJldHVybihjb3JtYXQpCiAgfQojIEdldCB1cHBlciB0cmlhbmdsZSBvZiB0aGUgY29ycmVsYXRpb24gbWF0cml4CiAgZ2V0X3VwcGVyX3RyaSA8LSBmdW5jdGlvbihjb3JtYXQpewogICAgY29ybWF0W2xvd2VyLnRyaShjb3JtYXQpXTwtIE5BCiAgICByZXR1cm4oY29ybWF0KQogIH0KCnJlb3JkZXJfY29ybWF0IDwtIGZ1bmN0aW9uKGNvcm1hdCl7CiMgVXNlIGNvcnJlbGF0aW9uIGJldHdlZW4gdmFyaWFibGVzIGFzIGRpc3RhbmNlCmRkIDwtIGFzLmRpc3QoKDEtY29ybWF0KS8yKQpoYyA8LSBoY2x1c3QoZGQpCmNvcm1hdCA8LWNvcm1hdFtoYyRvcmRlciwgaGMkb3JkZXJdCn0KCnJlb3JkZXJfY29yX2FuZF9wIDwtIGZ1bmN0aW9uKGNvcm1hdCwgcG1hdCl7CiAgZGQgPC0gYXMuZGlzdCgoMS1jb3JtYXQpLzIpCiAgaGMgPC0gaGNsdXN0KGRkKQogIGNvcm1hdCA8LWNvcm1hdFtoYyRvcmRlciwgaGMkb3JkZXJdCiAgcG1hdCA8LSBwbWF0W2hjJG9yZGVyLCBoYyRvcmRlcl0KICBsaXN0KHIgPSBjb3JtYXQsIHAgPSBwbWF0KQp9CmBgYAoKCmBgYHtyfQpzcGFyY2N0YWJsZV9hbGxkb21haW5zIDwtIHNwYXJjYyh0KGFsbGRvbWFpbnNfZGYpKQpgYGAKClB1dCBzYW1wbGUgbmFtZXMgYmFjayBpbnRvIHJlc3VsdCB0YWJsZXMKYGBge3J9CnJvd25hbWVzKHNwYXJjY3RhYmxlX2FsbGRvbWFpbnMkQ29yKSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmX2Z1bGwpCmNvbG5hbWVzKHNwYXJjY3RhYmxlX2FsbGRvbWFpbnMkQ29yKSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmX2Z1bGwpCnJvd25hbWVzKHNwYXJjY3RhYmxlX2FsbGRvbWFpbnMkQ292KSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmX2Z1bGwpCmNvbG5hbWVzKHNwYXJjY3RhYmxlX2FsbGRvbWFpbnMkQ292KSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmX2Z1bGwpCgpzcGFyY2N0YWJsZV9hbGxkb21haW5zJENvclsxOjIsMToyXQoKYGBgCgoKClBsb3QgY29ycmVsYXRpb24KYGBge3J9CnBsb3RhYmxlU3BhcmNjIDwtIHNwYXJjY3RhYmxlX2FsbGRvbWFpbnMkQ29yICU+JSByZW9yZGVyX2Nvcm1hdCAlPiUgZ2V0X3VwcGVyX3RyaSgpICU+JSByZXNoYXBlMjo6bWVsdCgpICU+JSBuYS5vbWl0KCkKClNwYXJjY19wbG90IDwtIHBsb3RhYmxlU3BhcmNjICU+JSBnZ3Bsb3QoYWVzKHggPSBWYXIyLCB5ID0gVmFyMSwgZmlsbCA9IHZhbHVlKSkgKyBnZW9tX3RpbGUoKSArIHNjYWxlX2ZpbGxfZ3JhZGllbnQyKCkgKyB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwLCBoanVzdCA9IDEpKQoKU3BhcmNjX3Bsb3QKCiMgZ2dzYXZlKCJmaWd1cmVzL3NwYXJjY19jb3JyX2FsbGRvbWFpbnMuZXBzIixTcGFyY2NfcGxvdCwgd2lkdGggPSAzNSwgaGVpZ2h0ID0gMzUsIHVuaXRzID0gYygiaW4iKSkKYGBgCgoKCkNhbGN1bGF0ZSBTcGFyY2MgcC12YWx1ZXMgYnkgYm9vdHN0cmFwcGluZy0gVEFLRVMgQSBMT05HIFRJTUUKYGBge3J9CiMgdHAwIDwtIHByb2MudGltZSgpCiMgb3V0MiA8LSBzcGFyY2Nib290KHQoYWxsZG9tYWluc19kZiksIFIgPSAxMDAwLCBuY3B1cyA9IDIpCiMgdHAxIDwtIHByb2MudGltZSgpCiMgdHAxIC0gdHAwCmBgYApUaGUgYWJvdmUgdG9vayB+MTQgaG91cnMgdG8gcnVuIDEwMDAgaXRlcmF0aW9ucwoKCkV4dHJhY3QgcC12YWx1ZXMgCmBgYHtyfQpvdXRQIDwtIHB2YWwuc3BhcmNjYm9vdChvdXQyKQpkYXRhLmZyYW1lKG91dFAkY29ycywgb3V0UCRwdmFscykgJT4lIGhlYWQKY29ycyA8LSBvdXRQJGNvcnMKcHZhbHMgPC0gb3V0UCRwdmFscwpzcGFyQ0NwY29ycyA8LSBkaWFnKDAuNSwgbnJvdyA9IGRpbShzcGFyY2N0YWJsZV9hbGxkb21haW5zJENvcilbMV0sIG5jb2wgPSBkaW0oc3BhcmNjdGFibGVfYWxsZG9tYWlucyRDb3IpWzFdKQpzcGFyQ0NwY29yc1t1cHBlci50cmkoc3BhckNDcGNvcnMsIGRpYWc9RkFMU0UpXSA8LSBjb3JzCnNwYXJDQ3Bjb3JzIDwtIHNwYXJDQ3Bjb3JzICsgdChzcGFyQ0NwY29ycykKCnNwYXJDQ3B2YWwgPC0gZGlhZygwLjUsIG5yb3cgPSBkaW0oc3BhcmNjdGFibGVfYWxsZG9tYWlucyRDb3IpWzFdLCBuY29sID0gZGltKHNwYXJjY3RhYmxlX2FsbGRvbWFpbnMkQ29yKVsxXSkKc3BhckNDcHZhbFt1cHBlci50cmkoc3BhckNDcHZhbCwgZGlhZz1GQUxTRSldIDwtIHB2YWxzCnNwYXJDQ3B2YWwgPC0gc3BhckNDcHZhbCArIHQoc3BhckNDcHZhbCkKCnJvd25hbWVzKHNwYXJDQ3Bjb3JzKSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmX2Z1bGwpCmNvbG5hbWVzKHNwYXJDQ3Bjb3JzKSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmX2Z1bGwpCnJvd25hbWVzKHNwYXJDQ3B2YWwpIDwtIHJvd25hbWVzKGFsbGRvbWFpbnNfZGZfZnVsbCkKY29sbmFtZXMoc3BhckNDcHZhbCkgPC0gcm93bmFtZXMoYWxsZG9tYWluc19kZl9mdWxsKQoKc3BhckNDcGNvcnNbMToyLCAxOjJdCnNwYXJDQ3B2YWxbMToyLCAxOjJdCmBgYAoKUmVvcmRlciBmb3IgcGxvdHRpbmcKYGBge3J9CnJlb3JkZXJlZF9hbGxfc3BhcmNjIDwtIHJlb3JkZXJfY29yX2FuZF9wKHNwYXJDQ3Bjb3JzLCBzcGFyQ0NwdmFsKQpyZW9yZGVyZWRfc3BhcmNjQ29yIDwtIHJlb3JkZXJlZF9hbGxfc3BhcmNjJHIKcmVvcmRlcmVkX3NwYXJjY1A8LSByZW9yZGVyZWRfYWxsX3NwYXJjYyRwCgoKc3BhcmNjQ29yX3Byb2Nlc3NlZCA8LSByZW9yZGVyZWRfc3BhcmNjQ29yICAlPiUgZ2V0X3VwcGVyX3RyaSgpICU+JSByZXNoYXBlMjo6bWVsdCgpICU+JSBuYS5vbWl0KCkgJT4lIHJlbmFtZShjb3IgPSB2YWx1ZSkKc3BhcmNjUF9wcm9jZXNzZWQgPC0gcmVvcmRlcmVkX3NwYXJjY1AgICU+JSBnZXRfdXBwZXJfdHJpKCkgJT4lIHJlc2hhcGUyOjptZWx0KCkgJT4lIG5hLm9taXQoKSAlPiUgcmVuYW1lKHAgPSB2YWx1ZSkKCiMgam9pbiB0aGUgdHdvIGRhdGEgZnJhbWVzCgpTcGFyY2NQIDwtIGxlZnRfam9pbihzcGFyY2NDb3JfcHJvY2Vzc2VkLCBzcGFyY2NQX3Byb2Nlc3NlZCwgYnkgPSBjKCJWYXIxIiwgIlZhcjIiKSkgJT4lCiAgIyAjIHJlbW92ZSBzZWxmIGNvcnJlbGF0aW9ucwogICMgZmlsdGVyKFZhcjEgIT0gVmFyMikgJT4lIAogICMgY2FsY3VsYXRlIHRoZSBmYWxzZSBkaXNjb3ZlcnkgcmF0ZSB0byBhZGp1c3QgZm9yIG11bHRpcGxlIHAgdmFsdWVzCiAgbXV0YXRlKGZkciA9IHAuYWRqdXN0KHAsIG1ldGhvZCA9ICJCSCIpKQpgYGAKCgpBbmQgcGxvdCBjb3JyZWxhdGlvbiB3aXRoIHAtdmFsdWVzLiBDaXJjbGVzIG1lYW4gdGhhdCB0aGUgcmVsYXRpb25zaGlwIGlzIHNpZy4gYXQgcCA9IDAuMDUgbGV2ZWwsIGJhc2VkIG9uIGJvb3RzdHJhcHBpbmcKYGBge3J9CmZkclRocmVzaCA8LSAwLjAxICMgZmRyIHRocmVzaG9sZApzcGFyY2NPa1AgPC0gU3BhcmNjUCU+JSBmaWx0ZXIoZmRyIDwgZmRyVGhyZXNoKSAKClNwYXJjY1BfcGxvdCA8LSBTcGFyY2NQICU+JSBnZ3Bsb3QoYWVzKHggPSBWYXIyLCB5ID0gVmFyMSwgZmlsbCA9IGNvcikpICsgZ2VvbV90aWxlKCkgKyBzY2FsZV9maWxsX2dyYWRpZW50MigpICsgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCwgaGp1c3QgPSAxKSkgKyBnZW9tX3BvaW50KGRhdGEgPSBzcGFyY2NPa1AsIHNoYXBlID0gMSkKClNwYXJjY1BfcGxvdAoKZ2dzYXZlKCJmaWd1cmVzL3NwYXJjY19jb3JyX2FsbGRvbWFpbnNfd19wdmFscy5lcHMiLFNwYXJjY1BfcGxvdCwgd2lkdGggPSAzNSwgaGVpZ2h0ID0gMzUsIHVuaXRzID0gYygiaW4iKSkKCmBgYAoKCgpTYXZlIGVudmlyb25tZW50IGFnYWluCmBgYHtyfQojIHNhdmUuaW1hZ2UoIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19wb3N0YW5hbHlzaXNfdmFyc191cHRvX3NwYXJjY19ib290c3RyYXAuUkRhdGEiKQpgYGAKCk9yIGxvYWQgaWYgY29taW5nIGJhY2sKYGBge3J9CmxvYWQoIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19wb3N0YW5hbHlzaXNfdmFyc191cHRvX3NwYXJjY19ib290c3RyYXAuUkRhdGEiKQpgYGAKCgoKCgojIyBTcGllY0Vhc2kKClRyeSB0aGUgU3BpZWNFYXNpIG1ldGhvZCwgd2hpY2ggYWNjb3VudHMgZm9yIHNwYXJzZSBkYXRhLCBhcyBkZXNjcmliZWQgaW4gdGhlIFtTcGllY0Vhc2kgcHVibGljYXRpb25dKGh0dHBzOi8vam91cm5hbHMucGxvcy5vcmcvcGxvc2NvbXBiaW9sL2FydGljbGU/aWQ9MTAuMTM3MS9qb3VybmFsLnBjYmkuMTAwNDIyNiksIFtzcGllY2Vhc2kgZ2l0aHViXShodHRwczovL2dpdGh1Yi5jb20vemRrMTIzL1NwaWVjRWFzaSksIGFuZCBbQlZDTiBsZXNzb25zIDEuMl0oaHR0cHM6Ly9iaW92Y25ldC5naXRodWIuaW8vX3BhZ2VzL05ldHdvcmtTY2llbmNlX2dsYXNzbykuIFRoaXMgcmVkdWNlcyB0aGUgY2x1bXBzIChlZy4gc3BhcnNlIHJlbGF0aW9uc2hpcHMgdGhhdCBhcmUgc2Vjb25kYXJ5IG9yIHRlcmlhcnksIG5vdCBkaXJlY3QgcmVsYXRpb25zaGlwcykuCgpNYWtlIGZ1bmN0aW9ucyBmcm9tIHR1dG9yaWFsCmBgYHtyfQpjb252ZXJ0U0VUb1RhYmxlIDwtIGZ1bmN0aW9uKHNlX291dCxzcC5uYW1lcyl7CiAgI1RoaXMgaXMganVzdCBhIGZhbmN5IGhlbHBlciBmdW5jdGlvbiB0byBnZXQgdGhlIGRhdGEgaW4gYSBjb21wYXJhYmxlIGZvcm1hdCB0byB0aGUgb3V0cHV0IG9mIGxlc3NvbiAxIHNvIHdlIGNhbiBtYWtlIGEgc2ltaWxhciBwbG90LiBXZSB3aWxsIGNvdmVyIG90aGVyIG1ldGhvZHMgZm9yIHZpc3VhbGl6aW5nIHRoaXMgdHlwZSBvZiBvdXRwdXQgaW4gZnV0dXJlIGxlc3NvbnMuCiAgc2Vjb3IgPC0gY292MmNvcihhcy5tYXRyaXgoZ2V0T3B0Q292KHNlX291dCkpKSAjIFNlZSBzcGllY2Vhc2kgZG9jdW1lbnRhdGlvbiBmb3IgaG93IHRvIHB1bGwgb3V0IHdlaWdodHMgZm9yIGNvbXBhcmlzb24KICBlbGlzdCAgICAgPC0gc3VtbWFyeSh0cml1KHNlY29yKmdldFJlZml0KHNlX291dCksIGs9MSkpCiAgZWxpc3RbLDFdIDwtIHNwLm5hbWVzW2VsaXN0WywxXV0KICBlbGlzdFssMl0gPC0gc3AubmFtZXNbZWxpc3RbLDJdXQogIGVsaXN0Wyw0XSA8LSBwYXN0ZShlbGlzdFssMV0sZWxpc3RbLDJdKQogIGZ1bGxfZSA8LSBleHBhbmQuZ3JpZChzcC5uYW1lcyxzcC5uYW1lcykKICByb3duYW1lcyhmdWxsX2UpIDwtIHBhc3RlKGZ1bGxfZVssMV0sZnVsbF9lWywyXSkKICBmdWxsX2VbLCJXZWlnaHQiXSA8LSAwCiAgZnVsbF9lW2VsaXN0Wyw0XSwiV2VpZ2h0Il0gPC0gZWxpc3RbLDNdCiAgeCA8LSBleHBhbmQuZ3JpZCgxOmxlbmd0aChzcC5uYW1lcyksMTpsZW5ndGgoc3AubmFtZXMpKQogIGZ1bGxfZVt4WywiVmFyMSJdPnhbLCJWYXIyIl0sIldlaWdodCJdIDwtIE5BCiAgcmV0dXJuKGFzLmRhdGEuZnJhbWUoZnVsbF9lLHN0cmluZ3NBc0ZhY3RvcnM9RikpCn0KYGBgCgojIyMgU3BpZWNFYXNpIG9uIGZ1bGwgZGF0YXNldAoKRm9sbG93IHRoZSBzcGllY2Vhc2kgW2RvY3VtZW50YXRpb25dKGh0dHBzOi8vZ2l0aHViLmNvbS96ZGsxMjMvU3BpZWNFYXNpKSB0byBmaW5kIG9wdGltYWwgcGFyYW1ldGVycy4gQWxzbywgYmVjYXVzZSBJIHdhbnQgdG8gY29tcGFyZSBuZXR3b3JrcywgdGhpcyBbY29udm9dKGh0dHBzOi8vZ2l0aHViLmNvbS96ZGsxMjMvU3BpZWNFYXNpL2lzc3Vlcy83Nykgb24gdXNpbmcgb3B0aW1hbCBwYXJhbWV0ZXJzIGZvciBkaWZmZXJlbnQgbmV0d29yayBjb21wYXJpc29ucyBpcyBoZWxwZnVsLgoKUmVtb3ZlIHNhbXBsZXMgZnJvbSB0aGUgcGh5bG9zZXEgb2JqZWN0cyB0aGF0IGFyZSBub3QgaW4gYWxsIDMgZG9tYWlucyBhbmQgcmVvcmRlciBzYW1wbGVzIHNvIHRoZXkgYXJlIGluIHNhbWUgb3JkZXIgaW4gYWxsIDMgb2JqZWN0cwpgYGB7cn0KYmFjX2FyY2hfY29tbW9uIDwtIGludGVyc2VjdChzYW1wbGVfbmFtZXMocHNfYmFjX3JhX3BydW5lZCksIHNhbXBsZV9uYW1lcyhwc19hcmNoX3JhX3BydW5lZCkpCmFsbF9jb21tb24gPC0gaW50ZXJzZWN0KGJhY19hcmNoX2NvbW1vbiwgc2FtcGxlX25hbWVzKHBzX2V1a19yYV9wcnVuZWQpKQoKcHNfYmFjX3BydW5lZF8zZG9tYWlucyA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2JhY19wcnVuZWQpCnBzX2FyY2hfcHJ1bmVkXzNkb21haW5zIDwtIHBydW5lX3NhbXBsZXMoYWxsX2NvbW1vbiwgcHNfYXJjaF9wcnVuZWQpCnBzX2V1a19wcnVuZWRfM2RvbWFpbnMgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19ldWtfcHJ1bmVkKQoKcHNfYmFjX3JhX3BydW5lZF8zZG9tYWlucyA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2JhY19yYV9wcnVuZWQpCnBzX2FyY2hfcmFfcHJ1bmVkXzNkb21haW5zIDwtIHBydW5lX3NhbXBsZXMoYWxsX2NvbW1vbiwgcHNfYXJjaF9yYV9wcnVuZWQpCnBzX2V1a19yYV9wcnVuZWRfM2RvbWFpbnMgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19ldWtfcmFfcHJ1bmVkKQoKIyBtYWtlIHN1cmUgc2FtcGxlcyBhcmUgaW4gc2FtZSBvcmRlcgpvdHVfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnMpIDwtIG90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWlucylbLHNhbXBsZV9uYW1lcyhwc19iYWNfcmFfcHJ1bmVkXzNkb21haW5zKV0Kb3R1X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnMpIDwtIG90dV90YWJsZShwc19ldWtfcHJ1bmVkXzNkb21haW5zKVssc2FtcGxlX25hbWVzKHBzX2JhY19yYV9wcnVuZWRfM2RvbWFpbnMpXQoKYGBgCgoKCmBgYHtyfQojUnVuIFNwaWVjZWFzaSBvbiAzIGRvbWFpbiBkYXRhc2V0IGJhc2VkIG9uIDUlIFJBIGN1dG9mZgpwYXJncyA8LSBsaXN0KHNlZWQ9MTAwMTApCnNlIDwtIHNwaWVjLmVhc2kobGlzdChwc19iYWNfcHJ1bmVkXzNkb21haW5zLCBwc19hcmNoX3BydW5lZF8zZG9tYWlucywgcHNfZXVrX3BydW5lZF8zZG9tYWlucyksIG1ldGhvZD0nZ2xhc3NvJywgbGFtYmRhLm1pbi5yYXRpbz0xZS0yLCBubGFtYmRhPTEwMCwgcHVsc2FyLnBhcmFtcz1wYXJncykKZ2V0U3RhYmlsaXR5KHNlKQpgYGAKCnRoZSBhYm92ZSB0YWtlcyBhIHdoaWxlIHRvIHJ1biAoMjAtMzAgbWlucykuIFVzaW5nIHBhcmFtZXRlcnMgYWJvdmUsIHRoZSBzdGFiaWxpdHkgYWxvbmcgdGhlIGxhbWJkYSBwYXRoIChpbiBgc2Ukc2VsZWN0JHN0YXJzJHN1bW1hcnlgKSBjcm9zc2VzIHRoZSAwLjA1IHRocmVzaG9sZCBhbmQgdGhlIGZpbmFsIHN0YWJpbGl0eSB2YWx1ZSAoMC4wNDQpIGlzIHN1ZmZpY2llbnRseSBjbG9zZSB0byAwLjA1CgoKYGBge3J9CiNUaGlzIGlzIGp1c3QgYSBmYW5jeSBoZWxwZXIgZnVuY3Rpb24gdG8gZ2V0IHRoZSBkYXRhIGluIGEgY29tcGFyYWJsZSBmb3JtYXQgdG8gdGhlIG91dHB1dCBvZiBhYm92ZQp0YWIuc2UgPC0gY29udmVydFNFVG9UYWJsZShzZSxzcC5uYW1lcz1jb2xuYW1lcyh0KGFsbGRvbWFpbnNfZGZfZnVsbCkpKSAKCiNQbG90IApwbG90LnNlIDwtIGdncGxvdCh0YWIuc2UsYWVzKHggPSBWYXIxLCB5ID0gVmFyMiwgZmlsbCA9IFdlaWdodCkpICsgZ2VvbV90aWxlKCkgKyBzY2FsZV9maWxsX2dyYWRpZW50MigpICsgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCwgaGp1c3QgPSAxKSkKcGxvdChwbG90LnNlKQoKZ2dzYXZlKCJmaWd1cmVzL3NwaWVjZWFzaV9hbGxkb21haW5zLmVwcyIscGxvdC5zZSwgd2lkdGggPSAzNSwgaGVpZ2h0ID0gMzUsIHVuaXRzID0gYygiaW4iKSkKCmBgYApOb3RlLSBvbmx5IHRoZSBzaWduaWZpY2FudCB2YWx1ZXMgYWJvdmUgc2hvdyB1cCBpbiB0aGUgaGVhdG1hcCBhYm92ZSAoaWUuIHRoZXJlIGlzIG5vICJwLXZhbHVlIikKCgoKCiMjIyBTcGllY0Vhc2kgb24gYmFjdGVyaWEgYW5kIGFyY2hhZWEgb25seQpSZW1vdmUgc2FtcGxlcyBmcm9tIHRoZSBwaHlsb3NlcSBvYmplY3RzIHRoYXQgYXJlIG5vdCBpbiBib3RoIGRvbWFpbnMgYW5kIHJlb3JkZXIgc2FtcGxlcyBzbyB0aGV5IGFyZSBpbiBzYW1lIG9yZGVyIGluIGFsbCAzIG9iamVjdHMKYGBge3J9CmJhY19hcmNoX2NvbW1vbiA8LSBpbnRlcnNlY3Qoc2FtcGxlX25hbWVzKHBzX2JhY19yYV9wcnVuZWQpLCBzYW1wbGVfbmFtZXMocHNfYXJjaF9yYV9wcnVuZWQpKQoKcHNfYmFjX3BydW5lZF8yZG9tYWlucyA8LSBwcnVuZV9zYW1wbGVzKGJhY19hcmNoX2NvbW1vbiwgcHNfYmFjX3BydW5lZCkKcHNfYXJjaF9wcnVuZWRfMmRvbWFpbnMgPC0gcHJ1bmVfc2FtcGxlcyhiYWNfYXJjaF9jb21tb24sIHBzX2FyY2hfcHJ1bmVkKQoKcHNfYmFjX3JhX3BydW5lZF8yZG9tYWlucyA8LSBwcnVuZV9zYW1wbGVzKGJhY19hcmNoX2NvbW1vbiwgcHNfYmFjX3JhX3BydW5lZCkKcHNfYXJjaF9yYV9wcnVuZWRfMmRvbWFpbnMgPC0gcHJ1bmVfc2FtcGxlcyhiYWNfYXJjaF9jb21tb24sIHBzX2FyY2hfcmFfcHJ1bmVkKQoKCm90dV90YWJsZShwc19hcmNoX3BydW5lZF8yZG9tYWlucykgPC0gb3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzJkb21haW5zKVssc2FtcGxlX25hbWVzKHBzX2JhY19yYV9wcnVuZWRfM2RvbWFpbnMpXQoKc2FtcGxlX2RhdGEocHNfYmFjX3BydW5lZF8yZG9tYWlucykKc2FtcGxlX2RhdGEocHNfYXJjaF9wcnVuZWRfMmRvbWFpbnMpCgpgYGAKCgoKYGBge3J9CiNSdW4gU3BpZWNlYXNpCnBhcmdzIDwtIGxpc3Qoc2VlZD0xMDAxMCkKc2UuMmRvbWFpbnMgPC0gc3BpZWMuZWFzaShsaXN0KHBzX2JhY19wcnVuZWRfMmRvbWFpbnMsIHBzX2FyY2hfcHJ1bmVkXzJkb21haW5zKSwgbWV0aG9kPSdnbGFzc28nLCBsYW1iZGEubWluLnJhdGlvPTFlLTIsIG5sYW1iZGE9MjAwLCBwdWxzYXIucGFyYW1zPXBhcmdzKQpnZXRTdGFiaWxpdHkoc2UuMmRvbWFpbnMpCmBgYAoKdGhlIGFib3ZlIHRha2VzIGEgd2hpbGUgdG8gcnVuIC4gVXNpbmcgcGFyYW1ldGVycyBhYm92ZSwgdGhlIHN0YWJpbGl0eSBhbG9uZyB0aGUgbGFtYmRhIHBhdGggY3Jvc3NlcyB0aGUgMC4wNSB0aHJlc2hvbGQgYW5kIHRoZSBmaW5hbCBzdGFiaWxpdHkgdmFsdWUgKDAuMDQ2KSBpcyBjbG9zZSB0byAwLjA1CgoKCmBgYHtyfQojVGhpcyBpcyBqdXN0IGEgZmFuY3kgaGVscGVyIGZ1bmN0aW9uIHRvIGdldCB0aGUgZGF0YSBpbiBhIGNvbXBhcmFibGUgZm9ybWF0IHRvIHRoZSBvdXRwdXQgb2YgYWJvdmUKdGFiLnNlIDwtIGNvbnZlcnRTRVRvVGFibGUoc2UuMmRvbWFpbnMsc3AubmFtZXM9Y29sbmFtZXModCh0d29kb21haW5zX2RmX2Z1bGwpKSkgCgojUGxvdCAKcGxvdC5zZSA8LSBnZ3Bsb3QodGFiLnNlLGFlcyh4ID0gVmFyMSwgeSA9IFZhcjIsIGZpbGwgPSBXZWlnaHQpKSArIGdlb21fdGlsZSgpICsgc2NhbGVfZmlsbF9ncmFkaWVudDIoKSArIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gOTAsIGhqdXN0ID0gMSkpCnBsb3QocGxvdC5zZSkKCmdnc2F2ZSgiZmlndXJlcy9zcGllY2Vhc2lfMmRvbWFpbnMuZXBzIixwbG90LnNlLCB3aWR0aCA9IDM1LCBoZWlnaHQgPSAzNSwgdW5pdHMgPSBjKCJpbiIpKQoKYGBgCk5vdGUtIG9ubHkgdGhlIHNpZ25pZmljYW50IHZhbHVlcyBhYm92ZSBzaG93IHVwIGluIHRoZSBoZWF0bWFwIGFib3ZlIChpZS4gdGhlcmUgaXMgbm8gInAtdmFsdWUiKQoKCgoKCgojIyMgU3BpZWNFYXNpIG9uIG94eWNsaW5lICB3aXRoIDMgZG9tYWlucwoKYGBge3J9CmJhY19hcmNoX2NvbW1vbiA8LSBpbnRlcnNlY3Qoc2FtcGxlX25hbWVzKHBzX2JhY19veHljbGluZV9wcnVuZWQpLCBzYW1wbGVfbmFtZXMocHNfYXJjaF9veHljbGluZV9wcnVuZWQpKQphbGxfY29tbW9uIDwtIGludGVyc2VjdChiYWNfYXJjaF9jb21tb24sIHNhbXBsZV9uYW1lcyhwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkKSkKCnBzX2JhY19veHljbGluZV9wcnVuZWQgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19iYWNfb3h5Y2xpbmVfcHJ1bmVkKQpwc19hcmNoX294eWNsaW5lX3BydW5lZCA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2FyY2hfb3h5Y2xpbmVfcHJ1bmVkKQpwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkIDwtIHBydW5lX3NhbXBsZXMoYWxsX2NvbW1vbiwgcHNfZXVrX294eWNsaW5lX3BydW5lZCkKCgpvdHVfdGFibGUocHNfYXJjaF9veHljbGluZV9wcnVuZWQpIDwtIG90dV90YWJsZShwc19hcmNoX294eWNsaW5lX3BydW5lZClbLHNhbXBsZV9uYW1lcyhwc19iYWNfb3h5Y2xpbmVfcHJ1bmVkKV0Kb3R1X3RhYmxlKHBzX2V1a19veHljbGluZV9wcnVuZWQpIDwtIG90dV90YWJsZShwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkKVssc2FtcGxlX25hbWVzKHBzX2JhY19veHljbGluZV9wcnVuZWQpXQoKc2FtcGxlX2RhdGEocHNfYmFjX294eWNsaW5lX3BydW5lZCkKc2FtcGxlX2RhdGEocHNfYXJjaF9veHljbGluZV9wcnVuZWQpCnNhbXBsZV9kYXRhKHBzX2V1a19veHljbGluZV9wcnVuZWQpCgpgYGAKCgoKYGBge3J9CiNSdW4gU3BpZWNlYXNpCnBhcmdzIDwtIGxpc3Qoc2VlZD0xMDAxMCkKc2Uub3h5Y2xpbmUgPC0gc3BpZWMuZWFzaShsaXN0KHBzX2JhY19veHljbGluZV9wcnVuZWQsIHBzX2FyY2hfb3h5Y2xpbmVfcHJ1bmVkLCBwc19ldWtfb3h5Y2xpbmVfcHJ1bmVkKSwgbWV0aG9kPSdnbGFzc28nLCBsYW1iZGEubWluLnJhdGlvPTVlLTMsIG5sYW1iZGE9MzAwLCBwdWxzYXIucGFyYW1zPXBhcmdzKQpnZXRTdGFiaWxpdHkoc2Uub3h5Y2xpbmUpCmBgYAoKdGhlIGFib3ZlIHRha2VzIGEgY291cGxlIG9mIG1pbnV0ZXMgdG8gcnVuLiBTdGFiaWxpdHkgYW5kIHN0YWJpbGl0eSBhbG9uZyBsYW1iZGEgcGF0aCBhcmUgdmVyeSBzaW1pbGFyIHRvIHRoZSBmdWxsIGRhdGFzZXQgc3BpZWNlYXNpIG9iamVjdCAoc2UpIHdpdGggdGhlc2UgcGFyYW1ldGVycyBhYm92ZS4gQ29udGludWUgd2l0aCB0aGVzZS4KCgpgYGB7cn0KI1RoaXMgaXMganVzdCBhIGZhbmN5IGhlbHBlciBmdW5jdGlvbiB0byBnZXQgdGhlIGRhdGEgaW4gYSBjb21wYXJhYmxlIGZvcm1hdCB0byB0aGUgb3V0cHV0IG9mIGFib3ZlCnRhYi5zZS5veHljbGluZSA8LSBjb252ZXJ0U0VUb1RhYmxlKHNlLm94eWNsaW5lLCBzcC5uYW1lcz1jb2xuYW1lcyh0KGFsbGRvbWFpbnNfZGZfZnVsbF9veHljbGluZSkpKSAKCiNQbG90IApwbG90LnNlLm94eWNsaW5lIDwtIGdncGxvdCh0YWIuc2Uub3h5Y2xpbmUsYWVzKHggPSBWYXIxLCB5ID0gVmFyMiwgZmlsbCA9IFdlaWdodCkpICsgZ2VvbV90aWxlKCkgKyBzY2FsZV9maWxsX2dyYWRpZW50MigpICsgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCwgaGp1c3QgPSAxKSkKcGxvdChwbG90LnNlLm94eWNsaW5lKQoKZ2dzYXZlKCJmaWd1cmVzL3NwaWVjZWFzaV9hbGxkb21haW5zX294eWNsaW5lLmVwcyIscGxvdC5zZS5veHljbGluZSwgd2lkdGggPSAzNSwgaGVpZ2h0ID0gMzUsIHVuaXRzID0gYygiaW4iKSkKCmBgYAoKCgoKCgoKCgojIyMgU3BpZWNFYXNpIG9uIGFub3hpYyBkZXB0aHMgd2l0aCAzIGRvbWFpbnMKCmBgYHtyfQpiYWNfYXJjaF9jb21tb24gPC0gaW50ZXJzZWN0KHNhbXBsZV9uYW1lcyhwc19iYWNfYW5veGljX3BydW5lZCksIHNhbXBsZV9uYW1lcyhwc19hcmNoX2Fub3hpY19wcnVuZWQpKQphbGxfY29tbW9uIDwtIGludGVyc2VjdChiYWNfYXJjaF9jb21tb24sIHNhbXBsZV9uYW1lcyhwc19ldWtfYW5veGljX3BydW5lZCkpCgpwc19iYWNfYW5veGljX3BydW5lZCA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2JhY19hbm94aWNfcHJ1bmVkKQpwc19hcmNoX2Fub3hpY19wcnVuZWQgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19hcmNoX2Fub3hpY19wcnVuZWQpCnBzX2V1a19hbm94aWNfcHJ1bmVkIDwtIHBydW5lX3NhbXBsZXMoYWxsX2NvbW1vbiwgcHNfZXVrX2Fub3hpY19wcnVuZWQpCgoKb3R1X3RhYmxlKHBzX2FyY2hfYW5veGljX3BydW5lZCkgPC0gb3R1X3RhYmxlKHBzX2FyY2hfYW5veGljX3BydW5lZClbLHNhbXBsZV9uYW1lcyhwc19iYWNfYW5veGljX3BydW5lZCldCm90dV90YWJsZShwc19ldWtfYW5veGljX3BydW5lZCkgPC0gb3R1X3RhYmxlKHBzX2V1a19hbm94aWNfcHJ1bmVkKVssc2FtcGxlX25hbWVzKHBzX2JhY19hbm94aWNfcHJ1bmVkKV0KCnNhbXBsZV9kYXRhKHBzX2JhY19hbm94aWNfcHJ1bmVkKQpzYW1wbGVfZGF0YShwc19hcmNoX2Fub3hpY19wcnVuZWQpCnNhbXBsZV9kYXRhKHBzX2V1a19hbm94aWNfcHJ1bmVkKQoKYGBgCgoKCmBgYHtyfQojUnVuIFNwaWVjZWFzaQpwYXJncyA8LSBsaXN0KHNlZWQ9MTAwMTApCnNlLmFub3hpYyA8LSBzcGllYy5lYXNpKGxpc3QocHNfYmFjX2Fub3hpY19wcnVuZWQsIHBzX2FyY2hfYW5veGljX3BydW5lZCwgcHNfZXVrX2Fub3hpY19wcnVuZWQpLCBtZXRob2Q9J2dsYXNzbycsIGxhbWJkYS5taW4ucmF0aW89MWUtMSwgbmxhbWJkYT0zMDAsIHB1bHNhci5wYXJhbXM9cGFyZ3MpCmdldFN0YWJpbGl0eShzZS5hbm94aWMpCmBgYAoKdGhlIGFib3ZlIHRha2VzIGEgY291cGxlIG9mIG1pbnV0ZXMgdG8gcnVuCgoKYGBge3J9CiNUaGlzIGlzIGp1c3QgYSBmYW5jeSBoZWxwZXIgZnVuY3Rpb24gdG8gZ2V0IHRoZSBkYXRhIGluIGEgY29tcGFyYWJsZSBmb3JtYXQgdG8gdGhlIG91dHB1dCBvZiBhYm92ZQp0YWIuc2UuYW5veGljIDwtIGNvbnZlcnRTRVRvVGFibGUoc2UuYW5veGljLCBzcC5uYW1lcz1jb2xuYW1lcyh0KGFsbGRvbWFpbnNfZGZfZnVsbF9hbm94aWMpKSkgCgojUGxvdCAKcGxvdC5zZS5hbm94aWMgPC0gZ2dwbG90KHRhYi5zZS5hbm94aWMsYWVzKHggPSBWYXIxLCB5ID0gVmFyMiwgZmlsbCA9IFdlaWdodCkpICsgZ2VvbV90aWxlKCkgKyBzY2FsZV9maWxsX2dyYWRpZW50MigpICsgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCwgaGp1c3QgPSAxKSkKcGxvdChwbG90LnNlLmFub3hpYykKCmdnc2F2ZSgiZmlndXJlcy9zcGllY2Vhc2lfYWxsZG9tYWluc19hbm94aWMuZXBzIixwbG90LnNlLmFub3hpYywgd2lkdGggPSAzNSwgaGVpZ2h0ID0gMzUsIHVuaXRzID0gYygiaW4iKSkKCmBgYAoKCgoKCiMjIyBTcGllY0Vhc2kgb24gZXV4aW5pYyBkZXB0aHMgd2l0aCAzIGRvbWFpbnMKCmBgYHtyfQpiYWNfYXJjaF9jb21tb24gPC0gaW50ZXJzZWN0KHNhbXBsZV9uYW1lcyhwc19iYWNfZXV4aW5pY19wcnVuZWQpLCBzYW1wbGVfbmFtZXMocHNfYXJjaF9ldXhpbmljX3BydW5lZCkpCmFsbF9jb21tb24gPC0gaW50ZXJzZWN0KGJhY19hcmNoX2NvbW1vbiwgc2FtcGxlX25hbWVzKHBzX2V1a19ldXhpbmljX3BydW5lZCkpCgpwc19iYWNfZXV4aW5pY19wcnVuZWQgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19iYWNfZXV4aW5pY19wcnVuZWQpCnBzX2FyY2hfZXV4aW5pY19wcnVuZWQgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19hcmNoX2V1eGluaWNfcHJ1bmVkKQpwc19ldWtfZXV4aW5pY19wcnVuZWQgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19ldWtfZXV4aW5pY19wcnVuZWQpCgoKb3R1X3RhYmxlKHBzX2FyY2hfZXV4aW5pY19wcnVuZWQpIDwtIG90dV90YWJsZShwc19hcmNoX2V1eGluaWNfcHJ1bmVkKVssc2FtcGxlX25hbWVzKHBzX2JhY19ldXhpbmljX3BydW5lZCldCm90dV90YWJsZShwc19ldWtfZXV4aW5pY19wcnVuZWQpIDwtIG90dV90YWJsZShwc19ldWtfZXV4aW5pY19wcnVuZWQpWyxzYW1wbGVfbmFtZXMocHNfYmFjX2V1eGluaWNfcHJ1bmVkKV0KCnNhbXBsZV9kYXRhKHBzX2JhY19ldXhpbmljX3BydW5lZCkKc2FtcGxlX2RhdGEocHNfYXJjaF9ldXhpbmljX3BydW5lZCkKc2FtcGxlX2RhdGEocHNfZXVrX2V1eGluaWNfcHJ1bmVkKQoKYGBgCgoKCmBgYHtyfQojUnVuIFNwaWVjZWFzaQpwYXJncyA8LSBsaXN0KHNlZWQ9MTAwMTApCnNlLmV1eGluaWMgPC0gc3BpZWMuZWFzaShsaXN0KHBzX2JhY19ldXhpbmljX3BydW5lZCwgcHNfYXJjaF9ldXhpbmljX3BydW5lZCwgcHNfZXVrX2V1eGluaWNfcHJ1bmVkKSwgbWV0aG9kPSdnbGFzc28nLCBsYW1iZGEubWluLnJhdGlvPTFlLTUsbmxhbWJkYT0yMCwgcHVsc2FyLnBhcmFtcz1wYXJncykKZ2V0U3RhYmlsaXR5KHNlLmV1eGluaWMpCmBgYAoKSSB0cmllZCBtYW55IHBhcmFtZXRlcnMgb24gdGhlIGFib3ZlIGJ1dCBjYW5ub3QgZ2V0IGEgc2F0aXNmYWN0b3J5IHNvbHV0aW9uLiBUaGVyZSBhcmUganVzdCB0b28gZmV3IHNhbXBsZXMgYWZ0ZXIgcXVhbGl0eSBmaWx0ZXJpbmcgdG8gZG8gU3BpZWNFYXNpIG9uIHRoZSBldXhpbmljIGRlcHRocyBvbmx5LgoKCgoKIyMjIFNhdmUgYW5kIHJlLWxvYWQgZW52aXJvbm1lbnQKYGBge3J9CiMgc2F2ZS5pbWFnZSgiRW52aXJvbm1lbnRCYWNrdXBzL0NhcmlhY29FdWtzX3Bvc3RhbmFseXNpc192YXJzX3VwdG9fc3BpZWNlYXNpLlJEYXRhIikKYGBgCgpPciBsb2FkIGlmIGNvbWluZyBiYWNrCmBgYHtyfQpsb2FkKCJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcG9zdGFuYWx5c2lzX3ZhcnNfdXB0b19zcGllY2Vhc2kuUkRhdGEiKQpgYGAKCgojIyBOZXR3b3JrIEFuYWx5c2lzCkJ1aWxkIG5ldHdvcmtzIGZyb20gdGhlIFNwaWVjRWFzaSBhc3NvY2lhdGlvbiBtYXRyaWNlcyB1c2luZyBpR3JhcGgKCiMjIyAzIERvbWFpbiBOZXR3b3JrLSBBbGwgZGVwdGhzCmBgYHtyfQojRXh0cmFjdCBhZGphY2VuY3kgbWF0cml4IGZyb20gc3BpZWNFYXNpIG91dHB1dAphZGoubWF0IDwtIGdldFJlZml0KHNlKQp0YWJsZShhcy5udW1lcmljKGFkai5tYXQpKQoKIyBFeHRyYWN0IHdlaWdodGVkIGFkamFjZW5jeQpzZS5jb3IgIDwtIGNvdjJjb3IoYXMubWF0cml4KGdldE9wdENvdihzZSkpKQp3ZWlnaHRlZC5hZGoubWF0IDwtIHNlLmNvcipnZXRSZWZpdChzZSkKCiNDb252ZXJ0IHRvIGdyYXBoIG9iamVjdHMKZ3JwaC51bndlaWdodGVkIDwtIGFkajJpZ3JhcGgoYWRqLm1hdCkKZ3JwaCA8LSBhZGoyaWdyYXBoKHdlaWdodGVkLmFkai5tYXQpCgoKIyBQdXQgYmFjayBpbiBzcGVjaWVzIG5hbWVzClYoZ3JwaCkkbmFtZSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmKQojIFYoZ3JwaCkKCiMgTWFrZSBzaXplIG9mIG5vZGVzIHByb3BvcnRpb25hbCB0byBkZWdyZWUgKG51bWJlciBvZiBjb25uZWN0aW9ucykKVihncnBoKSRzaXplIDwtIChkZWdyZWUoZ3JwaCkgKyAxKSAjIHRoZSArMSBhdm9pZHMgc2l6ZSB6ZXJvIHZlcnRpY2VzCgojIENoYW5nZSB3aWR0aCBvZiBlZGdlcyB0byBiZSBwcm9wb3J0aW9uYWwgdG8gdGhlaXIgd2VpZ2h0cwpFKGdycGgpJHdpZHRoIDwtIGFicyhFKGdycGgpJHdlaWdodCkqMTAKCiMgU2NhbGUgbm9kZSBzaXplcyB0byBiZSBzbWFsbGVyClYoZ3JwaCkkc2l6ZSA8LSBWKGdycGgpJHNpemUvMgoKIyBSZW1vdmUgbG93LXdlaWdodCBlZGdlcyAoeW91IGRlY2lkZSB3aGF0IHRocmVzaG9sZCBpcyByaWdodCBmb3IgeW91ciBuZXR3b3JrKToKIyB3ZWlnaHRfdGhyZXNob2xkIDwtIDAuMDcKIyBncnBoIDwtIGRlbGV0ZS5lZGdlcyhncnBoLHdoaWNoKGFicyhFKGdycGgpJHdlaWdodCk8d2VpZ2h0X3RocmVzaG9sZCkpCgojIEpvaW4gdGF4b25vbXkgZGF0YSBvZiBlYWNoIG5vZGUKIyBDb252ZXJ0IGdyYXBoIHRvIGRhdGFmcmFtCmdycGhfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgsICdib3RoJykKIyBtYWtlIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZSBmb3IgZWFjaCBkb21haW4KcHNfYmFjX3BydW5lZF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYmFjX3BydW5lZCkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2JhY19wcnVuZWQpKSkKcHNfYXJjaF9wcnVuZWRfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2FyY2hfcHJ1bmVkKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYXJjaF9wcnVuZWQpKSkKcHNfZXVrX3BydW5lZF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfZXVrX3BydW5lZCkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2V1a19wcnVuZWQpKSkKIyBsaW5rIGdyYXBoIGRhdGEgZnJhbWUgdG8gZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcwpiYWNfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaF9kZiR2ZXJ0aWNlc1sxOm50YXhhKHBzX2JhY19wcnVuZWQpLF0sCnBzX2JhY19wcnVuZWRfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKICAjIGRlbGV0ZSBjb2x1bW5zIHRoYXQgZG9uJ3QgbWF0Y2ggb3RoZXIgdGF4IHRhYmxlcwogIGJhY190ZW1wIDwtIHNlbGVjdChiYWNfdGVtcCwgLSJ0YXhvbm9teS05IiwgLSJSZWZpbmVkIHRheG9ub215IikKYXJjaF90ZW1wIDwtIGxlZnRfam9pbihncnBoX2RmJHZlcnRpY2VzW250YXhhKHBzX2JhY19wcnVuZWQpKzE6bnRheGEocHNfYXJjaF9wcnVuZWQpLF0sCnBzX2FyY2hfcHJ1bmVkX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCmV1a190ZW1wIDwtIGxlZnRfam9pbihncnBoX2RmJHZlcnRpY2VzW250YXhhKHBzX2JhY19wcnVuZWQpK250YXhhKHBzX2FyY2hfcHJ1bmVkKSsxOm50YXhhKHBzX2V1a19wcnVuZWQpLF0sCnBzX2V1a19wcnVuZWRfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKICAjIHJlbmFtZSBjb2x1bW4gbmFtZXMgaW4gZXVrIHRhYmxlIHRvIG1hdGNoIG90aGVycwogIGV1a190ZW1wIDwtIGV1a190ZW1wICU+JQogICAgcmVuYW1lKCJ0YXhvbm9teS0xIiA9IEtpbmdkb20sICJ0YXhvbm9teS0yIiA9IFN1cGVyZ3JvdXAsICJ0YXhvbm9teS0zIiA9IERpdmlzaW9uLCAidGF4b25vbXktNCIgPSBDbGFzcywgInRheG9ub215LTUiID0gT3JkZXIsICJ0YXhvbm9teS02IiA9IEZhbWlseSwgInRheG9ub215LTciID0gR2VudXMsICJ0YXhvbm9teS04IiA9IFNwZWNpZXMpCiMgYnVpbGQgZnVsbCBkYXRhZnJhbWUgd2l0aCBhbGwgMyBkb21haW5zCmFsbF90ZW1wIDwtIHJiaW5kKGJhY190ZW1wLCBhcmNoX3RlbXAsIGV1a190ZW1wKQojIHJlbWFrZSBpbnRvIGdyYXBoCmdycGggPC0gZ3JhcGhfZnJvbV9kYXRhX2ZyYW1lKGdycGhfZGYkZWRnZXMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGlyZWN0ZWQgPSBGLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHZlcnRpY2VzID0gYWxsX3RlbXApCgojIE1ha2UgY29sb3IgcGFsZXR0ZSBmb3IgZG9tYWluCmR0eXBlID0gYygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAieWVsbG93IikKIyBNYWtlIGNvbG9yIHZlY3Rvcgpkb21haW5fY29sb3IgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoKSQidGF4b25vbXktMSIpKV0KIyBjaGVjawpkb21haW5fY29sb3IKYXMuZmFjdG9yKFYoZ3JwaCkkInRheG9ub215LTEiKQoKCiMgUGxvdApwbG90KGdycGgsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBXaG9sZSBXYXRlciBDb2x1bW4iKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsICJncmVlbiIsICJibHVlIiwgInllbGxvdyIpLCBib3JkZXI9TkEpCgojIFNhdmUgcGxvdApzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc19hbGxkZXB0aHNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaCwKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3IpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIFdob2xlIFdhdGVyIENvbHVtbiIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAieWVsbG93IiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCmBgYAoKIyMjIyBQb3NpdGl2ZSBhbmQgbmVnYXRpdmUgZWRnZXMgc2VwYXJhdGVseQpgYGB7cn0KIyBTdWJzZXQgYmFzZWQgb24gcG9zIG9yIG5lZyBlZGdlcwpncnBoLnBvcyA8LWRlbGV0ZS5lZGdlcyhncnBoLCB3aGljaChFKGdycGgpJHdlaWdodDwwKSkKZ3JwaC5uZWcgPC1kZWxldGUuZWRnZXMoZ3JwaCwgd2hpY2goRShncnBoKSR3ZWlnaHQ+MCkpCgojIEZvciBlYWNoIHN1YnNldHRlZCBncmFwaCwgcmVtb3ZlIHRob3NlIG5vZGVzIHRoYXQgYXJlIG5vIGxvbmdlciBjb25uZWN0ZWQgdG8gYW55dGhpbmcKZ3JwaC5wb3MgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgucG9zLCB3aGljaChkZWdyZWUoZ3JwaC5wb3MpPT0wKSkKZ3JwaC5uZWcgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgubmVnLCB3aGljaChkZWdyZWUoZ3JwaC5uZWcpPT0wKSkKCiMgTWFrZSBjb2xvciB2ZWN0b3IgZm9yIGVhY2gKZG9tYWluX2NvbG9yX3BvcyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgucG9zKSQidGF4b25vbXktMSIpKV0KZG9tYWluX2NvbG9yX25lZyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgubmVnKSQidGF4b25vbXktMSIpKV0KCiMgUGxvdCBwb3MKcGxvdChncnBoLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3BvcykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgUG9zaXRpdmUgRWRnZXMsIFdob2xlIFdhdGVyIENvbHVtbiIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAieWVsbG93IiksIGJvcmRlcj1OQSkKCiMgUGxvdCBuZWcKcGxvdChncnBoLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX25lZykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgTmVnYXRpdmUgRWRnZXMsIFdob2xlIFdhdGVyIENvbHVtbiIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAieWVsbG93IiksIGJvcmRlcj1OQSkKCgojIFNhdmUgcGxvdHMKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvM2RvbWFpbnNfYWxsZGVwdGhzX3Bvc2VkZ2VzX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQb3NpdGl2ZSBFZGdlcywgV2hvbGUgV2F0ZXIgQ29sdW1uIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkJhY3RlcmlhIiwiQXJjaGFlYSIsICJFdWthcnlhIiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIpLCBib3JkZXI9TkEpCmRldi5vZmYoKQoKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvM2RvbWFpbnNfYWxsZGVwdGhzX25lZ2VkZ2VzX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5uZWcpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfbmVnKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBOZWdhdGl2ZSBFZGdlcywgV2hvbGUgV2F0ZXIgQ29sdW1uIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCJCYWN0ZXJpYSIsICJFdWthcnlhIiwgIk5vIEJsYXN0IEhpdCIpLAogICAgICAgZmlsbD1jKCJyZWQiLCAiZ3JlZW4iLCAiYmx1ZSIsICJ5ZWxsb3ciKSwgYm9yZGVyPU5BKQoKZGV2Lm9mZigpCmBgYAoKCiMjIyAyIERvbWFpbiBOZXR3b3JrLSBBbGwgZGVwdGhzClJlbW92ZSBldWthcnlvdGVzIHRvIHNlZSBpbXBhY3Qgb24gbmV0d29yawpgYGB7cn0KI0V4dHJhY3QgYWRqYWNlbmN5IG1hdHJpeCBmcm9tIHNwaWVjRWFzaSBvdXRwdXQKYWRqLm1hdCA8LSBnZXRSZWZpdChzZS4yZG9tYWlucykKdGFibGUoYXMubnVtZXJpYyhhZGoubWF0KSkKCiMgRXh0cmFjdCB3ZWlnaHRlZCBhZGphY2VuY3kKc2UuY29yICA8LSBjb3YyY29yKGFzLm1hdHJpeChnZXRPcHRDb3Yoc2UuMmRvbWFpbnMpKSkKd2VpZ2h0ZWQuYWRqLm1hdCA8LSBzZS5jb3IqZ2V0UmVmaXQoc2UuMmRvbWFpbnMpCgojQ29udmVydCB0byBncmFwaCBvYmplY3RzCmdycGgudW53ZWlnaHRlZCA8LSBhZGoyaWdyYXBoKGFkai5tYXQpCmdycGguMmRvbWFpbnMgPC0gYWRqMmlncmFwaCh3ZWlnaHRlZC5hZGoubWF0KQoKCiMgUHV0IGJhY2sgaW4gc3BlY2llcyBuYW1lcwpWKGdycGguMmRvbWFpbnMpJG5hbWUgPC0gcm93bmFtZXModHdvZG9tYWluc19kZikKIyBWKGdycGguMmRvbWFpbnMpCgojIE1ha2Ugc2l6ZSBvZiBub2RlcyBwcm9wb3J0aW9uYWwgdG8gZGVncmVlIChudW1iZXIgb2YgY29ubmVjdGlvbnMpClYoZ3JwaC4yZG9tYWlucykkc2l6ZSA8LSAoZGVncmVlKGdycGguMmRvbWFpbnMpICsgMSkgIyB0aGUgKzEgYXZvaWRzIHNpemUgemVybyB2ZXJ0aWNlcwoKIyBDb2xvciBlZGdlcyBieSBjb25uZWN0aW9uIChwb3NpdGl2ZSBvciBuZWdhdGl2ZSkgCiMgRShncnBoLjJkb21haW5zKSRjb2xvciA8LSBjdXN0b21ibHVlZ3JlZW4KIyBFKGdycGguMmRvbWFpbnMpJGNvbG9yW0UoZ3JwaC4yZG9tYWlucykkd2VpZ2h0PDBdIDwtIGN1c3RvbXJlZGRpc2hwdXJwbGUKCiMgQ2hhbmdlIHdpZHRoIG9mIGVkZ2VzIHRvIGJlIHByb3BvcnRpb25hbCB0byB0aGVpciB3ZWlnaHRzCkUoZ3JwaC4yZG9tYWlucykkd2lkdGggPC0gYWJzKEUoZ3JwaC4yZG9tYWlucykkd2VpZ2h0KSoxMAoKIyBTY2FsZSBub2RlIHNpemVzIHRvIGJlIHNtYWxsZXIKVihncnBoLjJkb21haW5zKSRzaXplIDwtIFYoZ3JwaC4yZG9tYWlucykkc2l6ZS8yCgojIFJlbW92ZSBsb3ctd2VpZ2h0IGVkZ2VzICh5b3UgZGVjaWRlIHdoYXQgdGhyZXNob2xkIGlzIHJpZ2h0IGZvciB5b3VyIG5ldHdvcmspOgojIHdlaWdodF90aHJlc2hvbGQgPC0gMC4wNwojIGdycGguMmRvbWFpbnMgPC0gZGVsZXRlLmVkZ2VzKGdycGguMmRvbWFpbnMsd2hpY2goYWJzKEUoZ3JwaC4yZG9tYWlucykkd2VpZ2h0KTx3ZWlnaHRfdGhyZXNob2xkKSkKCiMgSm9pbiB0YXhvbm9teSBkYXRhIG9mIGVhY2ggbm9kZQojIENvbnZlcnQgZ3JhcGggdG8gZGF0YWZyYW0KZ3JwaC4yZG9tYWluc19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC4yZG9tYWlucywgJ2JvdGgnKQojIG1ha2UgZm9ybWF0dGVkIHRheG9ub215IHRhYmxlIGZvciBlYWNoIGRvbWFpbgpwc19iYWNfcHJ1bmVkXzJkb21haW5zX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19iYWNfcHJ1bmVkXzJkb21haW5zKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8yZG9tYWlucykpKQpwc19hcmNoXzJkb21haW5zX3BydW5lZF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYXJjaF9wcnVuZWRfMmRvbWFpbnMpKSAlPiUKICBtdXRhdGUobmFtZSA9IHJvd25hbWVzKHRheF90YWJsZShwc19hcmNoX3BydW5lZF8yZG9tYWlucykpKQojIGxpbmsgZ3JhcGggZGF0YSBmcmFtZSB0byBmb3JtYXR0ZWQgdGF4b25vbXkgdGFibGVzCmJhY190ZW1wIDwtIGxlZnRfam9pbihncnBoLjJkb21haW5zX2RmJHZlcnRpY2VzWzE6bnRheGEocHNfYmFjX3BydW5lZF8yZG9tYWlucyksXSwKcHNfYmFjX3BydW5lZF8yZG9tYWluc190YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQogICMgZGVsZXRlIGNvbHVtbnMgdGhhdCBkb24ndCBtYXRjaCBvdGhlciB0YXggdGFibGVzCiAgYmFjX3RlbXAgPC0gc2VsZWN0KGJhY190ZW1wLCAtInRheG9ub215LTkiLCAtIlJlZmluZWQgdGF4b25vbXkiKQphcmNoX3RlbXAgPC0gbGVmdF9qb2luKGdycGguMmRvbWFpbnNfZGYkdmVydGljZXNbbnRheGEocHNfYmFjX3BydW5lZF8yZG9tYWlucykrMTpudGF4YShwc19hcmNoX3BydW5lZF8yZG9tYWlucyksXSwgcHNfYXJjaF8yZG9tYWluc19wcnVuZWRfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKIyBidWlsZCBmdWxsIGRhdGFmcmFtZSB3aXRoIGFsbCAzIGRvbWFpbnMKYWxsX3RlbXAgPC0gcmJpbmQoYmFjX3RlbXAsIGFyY2hfdGVtcCkKIyByZW1ha2UgaW50byBncmFwaApncnBoLjJkb21haW5zIDwtIGdyYXBoX2Zyb21fZGF0YV9mcmFtZShncnBoLjJkb21haW5zX2RmJGVkZ2VzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRpcmVjdGVkID0gRiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB2ZXJ0aWNlcyA9IGFsbF90ZW1wKQoKIyBNYWtlIGNvbG9yIHBhbGV0dGVyIGZvciBkb21haW4KZHR5cGUgPSBjKCJyZWQiLCAiZ3JlZW4iLCAieWVsbG93IikKCiMgTWFrZSBjb2xvciB2ZWN0b3IKZG9tYWluX2NvbG9yXzJkb21haW5zIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC4yZG9tYWlucykkInRheG9ub215LTEiKSldCgojIFBsb3QKcGxvdChncnBoLjJkb21haW5zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC4yZG9tYWlucyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWlucykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBCYWN0ZXJpYSBhbmQgQXJjaGFlYSwgV2hvbGUgV2F0ZXIgQ29sdW1uIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCJCYWN0ZXJpYSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCAieWVsbG93IiksIGJvcmRlcj1OQSkKCiMgU2F2ZSBwbG90CnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzJkb21haW5zX2FsbGRlcHRoc19zcGllY2Vhc2lfbmV0d29yay5lcHMiLCB3aWR0aCA9IDUuNSwgaGVpZ2h0ID0gNSkKcGxvdChncnBoLjJkb21haW5zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC4yZG9tYWlucyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWlucykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBCYWN0ZXJpYSBhbmQgQXJjaGFlYSwgV2hvbGUgV2F0ZXIgQ29sdW1uIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCJCYWN0ZXJpYSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCAieWVsbG93IiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCmBgYAoKCiMjIyMgUG9zaXRpdmUgYW5kIG5lZ2F0aXZlIGVkZ2VzIHNlcGFyYXRlbHkKYGBge3J9CiMgU3Vic2V0IGJhc2VkIG9uIHBvcyBvciBuZWcgZWRnZXMKZ3JwaC4yZG9tYWlucy5wb3MgPC1kZWxldGUuZWRnZXMoZ3JwaC4yZG9tYWlucywgd2hpY2goRShncnBoLjJkb21haW5zKSR3ZWlnaHQ8MCkpCmdycGguMmRvbWFpbnMubmVnIDwtZGVsZXRlLmVkZ2VzKGdycGguMmRvbWFpbnMsIHdoaWNoKEUoZ3JwaC4yZG9tYWlucykkd2VpZ2h0PjApKQoKIyBGb3IgZWFjaCBzdWJzZXR0ZWQgZ3JhcGgsIHJlbW92ZSB0aG9zZSBub2RlcyB0aGF0IGFyZSBubyBsb25nZXIgY29ubmVjdGVkIHRvIGFueXRoaW5nCmdycGguMmRvbWFpbnMucG9zIDwtIGRlbGV0ZS52ZXJ0aWNlcyhncnBoLjJkb21haW5zLnBvcywgd2hpY2goZGVncmVlKGdycGguMmRvbWFpbnMucG9zKT09MCkpCmdycGguMmRvbWFpbnMubmVnIDwtIGRlbGV0ZS52ZXJ0aWNlcyhncnBoLjJkb21haW5zLm5lZywgd2hpY2goZGVncmVlKGdycGguMmRvbWFpbnMubmVnKT09MCkpCgojIE1ha2UgY29sb3IgdmVjdG9yIGZvciBlYWNoCmRvbWFpbl9jb2xvcl8yZG9tYWluc19wb3MgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLjJkb21haW5zLnBvcykkInRheG9ub215LTEiKSldCmRvbWFpbl9jb2xvcl8yZG9tYWluc19uZWcgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLjJkb21haW5zLm5lZykkInRheG9ub215LTEiKSldCgojIFBsb3QgcG9zCnBsb3QoZ3JwaC4yZG9tYWlucy5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLjJkb21haW5zLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWluc19wb3MpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQmFjdGVyaWEgYW5kIEFyY2hhZWEsIFBvc2l0aXZlIEVkZ2VzIE9ubHksIFdob2xlIFdhdGVyIENvbHVtbiIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwiQmFjdGVyaWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoImdyZWVuIiwicmVkIiwieWVsbG93IiksIGJvcmRlcj1OQSkKCiMgUGxvdCBuZWcKcGxvdChncnBoLjJkb21haW5zLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGguMmRvbWFpbnMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yXzJkb21haW5zX25lZykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBCYWN0ZXJpYSBhbmQgQXJjaGFlYSwgTmVnYXRpdmUgRWRnZXMgT25seSwgV2hvbGUgV2F0ZXIgQ29sdW1uIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCJCYWN0ZXJpYSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygiZ3JlZW4iLCJyZWQiLCJ5ZWxsb3ciKSwgYm9yZGVyPU5BKQoKCiMgU2F2ZSBwbG90cwpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8yZG9tYWluc19hbGxkZXB0aHNfcG9zZWRnZXNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC4yZG9tYWlucy5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLjJkb21haW5zLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWluc19wb3MpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQmFjdGVyaWEgYW5kIEFyY2hhZWEsIFBvc2l0aXZlIEVkZ2VzIE9ubHksIFdob2xlIFdhdGVyIENvbHVtbiIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwiQmFjdGVyaWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoImdyZWVuIiwicmVkIiwieWVsbG93IiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCgpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8yZG9tYWluc19hbGxkZXB0aHNfbmVnZWRnZXNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC4yZG9tYWlucy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLjJkb21haW5zLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWluc19uZWcpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQmFjdGVyaWEgYW5kIEFyY2hhZWEsIE5lZ2F0aXZlIEVkZ2VzIE9ubHksIFdob2xlIFdhdGVyIENvbHVtbiIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsIkJhY3RlcmlhIiwgIk5vIEJsYXN0IEhpdCIpLAogICAgICAgZmlsbD1jKCJncmVlbiIsInJlZCIsInllbGxvdyIpLCBib3JkZXI9TkEpCmRldi5vZmYoKQpgYGAKCgoKCgojIyMgMyBEb21haW4gTmV0d29yay0gT3h5Y2xpbmUKYGBge3J9CiNFeHRyYWN0IGFkamFjZW5jeSBtYXRyaXggZnJvbSBzcGllY0Vhc2kgb3V0cHV0CmFkai5tYXQgPC0gZ2V0UmVmaXQoc2Uub3h5Y2xpbmUpCnRhYmxlKGFzLm51bWVyaWMoYWRqLm1hdCkpCgojIEV4dHJhY3Qgd2VpZ2h0ZWQgYWRqYWNlbmN5CnNlLmNvciAgPC0gY292MmNvcihhcy5tYXRyaXgoZ2V0T3B0Q292KHNlLm94eWNsaW5lKSkpCndlaWdodGVkLmFkai5tYXQgPC0gc2UuY29yKmdldFJlZml0KHNlLm94eWNsaW5lKQoKI0NvbnZlcnQgdG8gZ3JhcGggb2JqZWN0cwpncnBoLnVud2VpZ2h0ZWQub3h5Y2xpbmUgPC0gYWRqMmlncmFwaChhZGoubWF0KQpncnBoLm94eWNsaW5lIDwtIGFkajJpZ3JhcGgod2VpZ2h0ZWQuYWRqLm1hdCkKCgojIFB1dCBiYWNrIGluIHNwZWNpZXMgbmFtZXMKVihncnBoLm94eWNsaW5lKSRuYW1lIDwtIHJvd25hbWVzKGFsbGRvbWFpbnNfZGZfb3h5Y2xpbmUpCiMgVihncnBoLm94eWNsaW5lKQoKIyBNYWtlIHNpemUgb2Ygbm9kZXMgcHJvcG9ydGlvbmFsIHRvIGRlZ3JlZSAobnVtYmVyIG9mIGNvbm5lY3Rpb25zKQpWKGdycGgub3h5Y2xpbmUpJHNpemUgPC0gKGRlZ3JlZShncnBoLm94eWNsaW5lKSArIDEpICMgdGhlICsxIGF2b2lkcyBzaXplIHplcm8gdmVydGljZXMKCiMgQ29sb3IgZWRnZXMgYnkgY29ubmVjdGlvbiAocG9zaXRpdmUgb3IgbmVnYXRpdmUpIAojIEUoZ3JwaC5veHljbGluZSkkY29sb3IgPC0gY3VzdG9tYmx1ZWdyZWVuCiMgRShncnBoLm94eWNsaW5lKSRjb2xvcltFKGdycGgub3h5Y2xpbmUpJHdlaWdodDwwXSA8LSBjdXN0b21yZWRkaXNocHVycGxlCgojIENoYW5nZSB3aWR0aCBvZiBlZGdlcyB0byBiZSBwcm9wb3J0aW9uYWwgdG8gdGhlaXIgd2VpZ2h0cwpFKGdycGgub3h5Y2xpbmUpJHdpZHRoIDwtIGFicyhFKGdycGgub3h5Y2xpbmUpJHdlaWdodCkqMTAKCiMgU2NhbGUgbm9kZSBzaXplcyB0byBiZSBzbWFsbGVyClYoZ3JwaC5veHljbGluZSkkc2l6ZSA8LSBWKGdycGgub3h5Y2xpbmUpJHNpemUvMgoKIyBSZW1vdmUgbG93LXdlaWdodCBlZGdlcyAoeW91IGRlY2lkZSB3aGF0IHRocmVzaG9sZCBpcyByaWdodCBmb3IgeW91ciBuZXR3b3JrKToKIyB3ZWlnaHRfdGhyZXNob2xkIDwtIDAuMDcKIyBncnBoLm94eWNsaW5lIDwtIGRlbGV0ZS5lZGdlcyhncnBoLm94eWNsaW5lLHdoaWNoKGFicyhFKGdycGgub3h5Y2xpbmUpJHdlaWdodCk8d2VpZ2h0X3RocmVzaG9sZCkpCgojIEpvaW4gdGF4b25vbXkgZGF0YSBvZiBlYWNoIG5vZGUKIyBDb252ZXJ0IGdyYXBoIHRvIGRhdGFmcmFtCmdycGgub3h5Y2xpbmVfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgub3h5Y2xpbmUsICdib3RoJykKIyBtYWtlIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZSBmb3IgZWFjaCBkb21haW4KcHNfYmFjX294eWNsaW5lX3BydW5lZF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYmFjX294eWNsaW5lX3BydW5lZCkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2JhY19veHljbGluZV9wcnVuZWQpKSkKcHNfYXJjaF9veHljbGluZV9wcnVuZWRfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2FyY2hfb3h5Y2xpbmVfcHJ1bmVkKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYXJjaF9veHljbGluZV9wcnVuZWQpKSkKcHNfZXVrX294eWNsaW5lX3BydW5lZF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfZXVrX294eWNsaW5lX3BydW5lZCkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2V1a19veHljbGluZV9wcnVuZWQpKSkKIyBsaW5rIGdyYXBoIGRhdGEgZnJhbWUgdG8gZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcwpiYWNfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC5veHljbGluZV9kZiR2ZXJ0aWNlc1sxOm50YXhhKHBzX2JhY19veHljbGluZV9wcnVuZWQpLF0sCnBzX2JhY19veHljbGluZV9wcnVuZWRfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKICAjIGRlbGV0ZSBjb2x1bW5zIHRoYXQgZG9uJ3QgbWF0Y2ggb3RoZXIgdGF4IHRhYmxlcwogIGJhY190ZW1wIDwtIHNlbGVjdChiYWNfdGVtcCwgLSJ0YXhvbm9teS05IiwgLSJSZWZpbmVkIHRheG9ub215IikKYXJjaF90ZW1wIDwtIGxlZnRfam9pbihncnBoLm94eWNsaW5lX2RmJHZlcnRpY2VzW250YXhhKHBzX2JhY19veHljbGluZV9wcnVuZWQpKzE6bnRheGEocHNfYXJjaF9veHljbGluZV9wcnVuZWQpLF0scHNfYXJjaF9veHljbGluZV9wcnVuZWRfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKZXVrX3RlbXAgPC0gbGVmdF9qb2luKGdycGgub3h5Y2xpbmVfZGYkdmVydGljZXNbbnRheGEocHNfYmFjX294eWNsaW5lX3BydW5lZCkrbnRheGEocHNfYXJjaF9veHljbGluZV9wcnVuZWQpKzE6bnRheGEocHNfZXVrX294eWNsaW5lX3BydW5lZCksXSwgcHNfZXVrX294eWNsaW5lX3BydW5lZF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQogICMgcmVuYW1lIGNvbHVtbiBuYW1lcyBpbiBldWsgdGFibGUgdG8gbWF0Y2ggb3RoZXJzCiAgZXVrX3RlbXAgPC0gZXVrX3RlbXAgJT4lCiAgICByZW5hbWUoInRheG9ub215LTEiID0gS2luZ2RvbSwgInRheG9ub215LTIiID0gU3VwZXJncm91cCwgInRheG9ub215LTMiID0gRGl2aXNpb24sICJ0YXhvbm9teS00IiA9IENsYXNzLCAidGF4b25vbXktNSIgPSBPcmRlciwgInRheG9ub215LTYiID0gRmFtaWx5LCAidGF4b25vbXktNyIgPSBHZW51cywgInRheG9ub215LTgiID0gU3BlY2llcykKIyBidWlsZCBmdWxsIGRhdGFmcmFtZSB3aXRoIGFsbCAzIGRvbWFpbnMKYWxsX3RlbXAgPC0gcmJpbmQoYmFjX3RlbXAsIGFyY2hfdGVtcCwgZXVrX3RlbXApCiMgcmVtYWtlIGludG8gZ3JhcGgKZ3JwaC5veHljbGluZSA8LSBncmFwaF9mcm9tX2RhdGFfZnJhbWUoZ3JwaC5veHljbGluZV9kZiRlZGdlcywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkaXJlY3RlZCA9IEYsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdmVydGljZXMgPSBhbGxfdGVtcCkKCiMgTWFrZSBjb2xvciBwYWxldHRlciBmb3IgZG9tYWluCmR0eXBlID0gYygicmVkIiwgImdyZWVuIiwgImJsdWUiKQojIE1ha2UgY29sb3IgdmVjdG9yCmRvbWFpbl9jb2xvcl9veHljbGluZSA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgub3h5Y2xpbmUpJCJ0YXhvbm9teS0xIikpXQoKCiMgUGxvdApwbG90KGdycGgub3h5Y2xpbmUsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLm94eWNsaW5lKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX294eWNsaW5lKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBPeHljbGluZSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiksIGJvcmRlcj1OQSkKCiMgU2F2ZSBwbG90CnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzNkb21haW5zX294eWNsaW5lX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgub3h5Y2xpbmUsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLm94eWNsaW5lKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX294eWNsaW5lKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBPeHljbGluZSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCmBgYAoKCgojIyMjIFBvc2l0aXZlIGFuZCBuZWdhdGl2ZSBlZGdlcyBzZXBhcmF0ZWx5CmBgYHtyfQojIFN1YnNldCBiYXNlZCBvbiBwb3Mgb3IgbmVnIGVkZ2VzCmdycGgub3h5Y2xpbmUucG9zIDwtZGVsZXRlLmVkZ2VzKGdycGgub3h5Y2xpbmUsIHdoaWNoKEUoZ3JwaC5veHljbGluZSkkd2VpZ2h0PDApKQpncnBoLm94eWNsaW5lLm5lZyA8LWRlbGV0ZS5lZGdlcyhncnBoLm94eWNsaW5lLCB3aGljaChFKGdycGgub3h5Y2xpbmUpJHdlaWdodD4wKSkKCiMgRm9yIGVhY2ggc3Vic2V0dGVkIGdyYXBoLCByZW1vdmUgdGhvc2Ugbm9kZXMgdGhhdCBhcmUgbm8gbG9uZ2VyIGNvbm5lY3RlZCB0byBhbnl0aGluZwpncnBoLm94eWNsaW5lLnBvcyA8LSBkZWxldGUudmVydGljZXMoZ3JwaC5veHljbGluZS5wb3MsIHdoaWNoKGRlZ3JlZShncnBoLm94eWNsaW5lLnBvcyk9PTApKQpncnBoLm94eWNsaW5lLm5lZyA8LSBkZWxldGUudmVydGljZXMoZ3JwaC5veHljbGluZS5uZWcsIHdoaWNoKGRlZ3JlZShncnBoLm94eWNsaW5lLm5lZyk9PTApKQoKIyBNYWtlIGNvbG9yIHZlY3RvciBmb3IgZWFjaApkb21haW5fY29sb3Jfb3h5Y2xpbmVfcG9zIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC5veHljbGluZS5wb3MpJCJ0YXhvbm9teS0xIikpXQpkb21haW5fY29sb3Jfb3h5Y2xpbmVfbmVnIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC5veHljbGluZS5uZWcpJCJ0YXhvbm9teS0xIikpXQoKIyBQbG90IHBvcwpwbG90KGdycGgub3h5Y2xpbmUucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5veHljbGluZS5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3Jfb3h5Y2xpbmVfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQb3NpdGl2ZSBFZGdlcyBvbmx5LCBPeHljbGluZSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiksIGJvcmRlcj1OQSkKCiMgUGxvdCBuZWcKcGxvdChncnBoLm94eWNsaW5lLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgub3h5Y2xpbmUubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX294eWNsaW5lX25lZykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgTmVnYXRpdmUgRWRnZXMgT25seSwgT3h5Y2xpbmUiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJFdWthcnlhIiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIpLCBib3JkZXI9TkEpCgoKIyBTYXZlIHBsb3RzCnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzNkb21haW5zX294eWNsaW5lX3Bvc2VkZ2VzX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgub3h5Y2xpbmUucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5veHljbGluZS5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3Jfb3h5Y2xpbmVfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQb3NpdGl2ZSBFZGdlcyBPbmx5LCBPeHljbGluZSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCgpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc19veHljbGluZV9uZWdlZGdlc19zcGllY2Vhc2lfbmV0d29yay5lcHMiLCB3aWR0aCA9IDUuNSwgaGVpZ2h0ID0gNSkKcGxvdChncnBoLm94eWNsaW5lLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgub3h5Y2xpbmUubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX294eWNsaW5lX25lZykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgTmVnYXRpdmUgRWRnZXMgT25seSwgT3h5Y2xpbmUiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJFdWthcnlhIiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIpLCBib3JkZXI9TkEpCgpkZXYub2ZmKCkKYGBgCgoKCgoKCgojIyMgMyBEb21haW4gTmV0d29yay0gQW5veGljCmBgYHtyfQojRXh0cmFjdCBhZGphY2VuY3kgbWF0cml4IGZyb20gc3BpZWNFYXNpIG91dHB1dAphZGoubWF0IDwtIGdldFJlZml0KHNlLmFub3hpYykKdGFibGUoYXMubnVtZXJpYyhhZGoubWF0KSkKCiMgRXh0cmFjdCB3ZWlnaHRlZCBhZGphY2VuY3kKc2UuY29yICA8LSBjb3YyY29yKGFzLm1hdHJpeChnZXRPcHRDb3Yoc2UuYW5veGljKSkpCndlaWdodGVkLmFkai5tYXQgPC0gc2UuY29yKmdldFJlZml0KHNlLmFub3hpYykKCiNDb252ZXJ0IHRvIGdyYXBoIG9iamVjdHMKZ3JwaC51bndlaWdodGVkLmFub3hpYyA8LSBhZGoyaWdyYXBoKGFkai5tYXQpCmdycGguYW5veGljIDwtIGFkajJpZ3JhcGgod2VpZ2h0ZWQuYWRqLm1hdCkKCgojIFB1dCBiYWNrIGluIHNwZWNpZXMgbmFtZXMKVihncnBoLmFub3hpYykkbmFtZSA8LSByb3duYW1lcyhhbGxkb21haW5zX2RmX2Fub3hpYykKIyBWKGdycGguYW5veGljKQoKCiMgTWFrZSBzaXplIG9mIG5vZGVzIHByb3BvcnRpb25hbCB0byBkZWdyZWUgKG51bWJlciBvZiBjb25uZWN0aW9ucykKVihncnBoLmFub3hpYykkc2l6ZSA8LSAoZGVncmVlKGdycGguYW5veGljKSArIDEpICMgdGhlICsxIGF2b2lkcyBzaXplIHplcm8gdmVydGljZXMKCiMgQ29sb3IgZWRnZXMgYnkgY29ubmVjdGlvbiAocG9zaXRpdmUgb3IgbmVnYXRpdmUpIAojIEUoZ3JwaC5hbm94aWMpJGNvbG9yIDwtIGN1c3RvbWJsdWVncmVlbgojIEUoZ3JwaC5hbm94aWMpJGNvbG9yW0UoZ3JwaC5hbm94aWMpJHdlaWdodDwwXSA8LSBjdXN0b21yZWRkaXNocHVycGxlCgojIENoYW5nZSB3aWR0aCBvZiBlZGdlcyB0byBiZSBwcm9wb3J0aW9uYWwgdG8gdGhlaXIgd2VpZ2h0cwpFKGdycGguYW5veGljKSR3aWR0aCA8LSBhYnMoRShncnBoLmFub3hpYykkd2VpZ2h0KSoxMAoKIyBTY2FsZSBub2RlIHNpemVzIHRvIGJlIHNtYWxsZXIKVihncnBoLmFub3hpYykkc2l6ZSA8LSBWKGdycGguYW5veGljKSRzaXplLzIKCiMgUmVtb3ZlIGxvdy13ZWlnaHQgZWRnZXMgKHlvdSBkZWNpZGUgd2hhdCB0aHJlc2hvbGQgaXMgcmlnaHQgZm9yIHlvdXIgbmV0d29yayk6CiMgd2VpZ2h0X3RocmVzaG9sZCA8LSAwLjA3CiMgZ3JwaC5hbm94aWMgPC0gZGVsZXRlLmVkZ2VzKGdycGguYW5veGljLHdoaWNoKGFicyhFKGdycGguYW5veGljKSR3ZWlnaHQpPHdlaWdodF90aHJlc2hvbGQpKQoKIyBKb2luIHRheG9ub215IGRhdGEgb2YgZWFjaCBub2RlCiMgQ29udmVydCBncmFwaCB0byBkYXRhZnJhbQpncnBoLmFub3hpY19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC5hbm94aWMsICdib3RoJykKIyBtYWtlIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZSBmb3IgZWFjaCBkb21haW4KcHNfYmFjX2Fub3hpY19wcnVuZWRfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2JhY19hbm94aWNfcHJ1bmVkKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYmFjX2Fub3hpY19wcnVuZWQpKSkKcHNfYXJjaF9hbm94aWNfcHJ1bmVkX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19hcmNoX2Fub3hpY19wcnVuZWQpKSAlPiUKICBtdXRhdGUobmFtZSA9IHJvd25hbWVzKHRheF90YWJsZShwc19hcmNoX2Fub3hpY19wcnVuZWQpKSkKcHNfZXVrX2Fub3hpY19wcnVuZWRfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2V1a19hbm94aWNfcHJ1bmVkKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfZXVrX2Fub3hpY19wcnVuZWQpKSkKIyBsaW5rIGdyYXBoIGRhdGEgZnJhbWUgdG8gZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcwpiYWNfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC5hbm94aWNfZGYkdmVydGljZXNbMTpudGF4YShwc19iYWNfYW5veGljX3BydW5lZCksXSxwc19iYWNfYW5veGljX3BydW5lZF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQogICMgZGVsZXRlIGNvbHVtbnMgdGhhdCBkb24ndCBtYXRjaCBvdGhlciB0YXggdGFibGVzCiAgYmFjX3RlbXAgPC0gc2VsZWN0KGJhY190ZW1wLCAtInRheG9ub215LTkiLCAtIlJlZmluZWQgdGF4b25vbXkiKQphcmNoX3RlbXAgPC0gbGVmdF9qb2luKGdycGguYW5veGljX2RmJHZlcnRpY2VzW250YXhhKHBzX2JhY19hbm94aWNfcHJ1bmVkKSsxOm50YXhhKHBzX2FyY2hfYW5veGljX3BydW5lZCksXSxwc19hcmNoX2Fub3hpY19wcnVuZWRfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKZXVrX3RlbXAgPC0gbGVmdF9qb2luKGdycGguYW5veGljX2RmJHZlcnRpY2VzW250YXhhKHBzX2JhY19hbm94aWNfcHJ1bmVkKStudGF4YShwc19hcmNoX2Fub3hpY19wcnVuZWQpKzE6bnRheGEocHNfZXVrX2Fub3hpY19wcnVuZWQpLF0sIHBzX2V1a19hbm94aWNfcHJ1bmVkX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCiAgIyByZW5hbWUgY29sdW1uIG5hbWVzIGluIGV1ayB0YWJsZSB0byBtYXRjaCBvdGhlcnMKICBldWtfdGVtcCA8LSBldWtfdGVtcCAlPiUKICAgIHJlbmFtZSgidGF4b25vbXktMSIgPSBLaW5nZG9tLCAidGF4b25vbXktMiIgPSBTdXBlcmdyb3VwLCAidGF4b25vbXktMyIgPSBEaXZpc2lvbiwgInRheG9ub215LTQiID0gQ2xhc3MsICJ0YXhvbm9teS01IiA9IE9yZGVyLCAidGF4b25vbXktNiIgPSBGYW1pbHksICJ0YXhvbm9teS03IiA9IEdlbnVzLCAidGF4b25vbXktOCIgPSBTcGVjaWVzKQojIGJ1aWxkIGZ1bGwgZGF0YWZyYW1lIHdpdGggYWxsIDMgZG9tYWlucwphbGxfdGVtcCA8LSByYmluZChiYWNfdGVtcCwgYXJjaF90ZW1wLCBldWtfdGVtcCkKIyByZW1ha2UgaW50byBncmFwaApncnBoLmFub3hpYyA8LSBncmFwaF9mcm9tX2RhdGFfZnJhbWUoZ3JwaC5hbm94aWNfZGYkZWRnZXMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGlyZWN0ZWQgPSBGLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHZlcnRpY2VzID0gYWxsX3RlbXApCgojIE1ha2UgY29sb3IgcGFsZXR0ZXIgZm9yIGRvbWFpbgpkdHlwZSA9IGMoInJlZCIsICJncmVlbiIsICJibHVlIikKIyBNYWtlIGNvbG9yIHZlY3Rvcgpkb21haW5fY29sb3JfYW5veGljIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC5hbm94aWMpJCJ0YXhvbm9teS0xIikpXQoKIyBQbG90CnBsb3QoZ3JwaC5hbm94aWMsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLmFub3hpYyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl9hbm94aWMpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIEFub3hpYyBMYXllciIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiksIGJvcmRlcj1OQSkKCiMgU2F2ZSBwbG90CnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzNkb21haW5zX2Fub3hpY19zcGllY2Vhc2lfbmV0d29yay5lcHMiLCB3aWR0aCA9IDUuNSwgaGVpZ2h0ID0gNSkKcGxvdChncnBoLmFub3hpYywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGguYW5veGljKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX2Fub3hpYykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgQW5veGljIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImJsdWUiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKYGBgCgoKIyMjIyBQb3NpdGl2ZSBhbmQgbmVnYXRpdmUgZWRnZXMgc2VwYXJhdGVseQoKYGBge3J9CiMgU3Vic2V0IGJhc2VkIG9uIHBvcyBvciBuZWcgZWRnZXMKZ3JwaC5hbm94aWMucG9zIDwtZGVsZXRlLmVkZ2VzKGdycGguYW5veGljLCB3aGljaChFKGdycGguYW5veGljKSR3ZWlnaHQ8MCkpCmdycGguYW5veGljLm5lZyA8LWRlbGV0ZS5lZGdlcyhncnBoLmFub3hpYywgd2hpY2goRShncnBoLmFub3hpYykkd2VpZ2h0PjApKQoKIyBGb3IgZWFjaCBzdWJzZXR0ZWQgZ3JhcGgsIHJlbW92ZSB0aG9zZSBub2RlcyB0aGF0IGFyZSBubyBsb25nZXIgY29ubmVjdGVkIHRvIGFueXRoaW5nCmdycGguYW5veGljLnBvcyA8LSBkZWxldGUudmVydGljZXMoZ3JwaC5hbm94aWMucG9zLCB3aGljaChkZWdyZWUoZ3JwaC5hbm94aWMucG9zKT09MCkpCmdycGguYW5veGljLm5lZyA8LSBkZWxldGUudmVydGljZXMoZ3JwaC5hbm94aWMubmVnLCB3aGljaChkZWdyZWUoZ3JwaC5hbm94aWMubmVnKT09MCkpCgojIE1ha2UgY29sb3IgdmVjdG9yIGZvciBlYWNoCmRvbWFpbl9jb2xvcl9hbm94aWNfcG9zIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC5hbm94aWMucG9zKSQidGF4b25vbXktMSIpKV0KZG9tYWluX2NvbG9yX2Fub3hpY19uZWcgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLmFub3hpYy5uZWcpJCJ0YXhvbm9teS0xIikpXQoKIyBQbG90IHBvcwpwbG90KGdycGguYW5veGljLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGguYW5veGljLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl9hbm94aWNfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQb3NpdGl2ZSBFZGdlcyBvbmx5LCBhbm94aWMiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJFdWthcnlhIiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIpLCBib3JkZXI9TkEpCgojIFBsb3QgbmVnCnBsb3QoZ3JwaC5hbm94aWMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5hbm94aWMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX2Fub3hpY19uZWcpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIE5lZ2F0aXZlIEVkZ2VzIE9ubHksIGFub3hpYyIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiksIGJvcmRlcj1OQSkKCgojIFNhdmUgcGxvdHMKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvM2RvbWFpbnNfYW5veGljX3Bvc2VkZ2VzX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGguYW5veGljLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGguYW5veGljLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl9hbm94aWNfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQb3NpdGl2ZSBFZGdlcyBPbmx5LCBTaGFsbG93IEFub3hpYyIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCgpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc19hbm94aWNfbmVnZWRnZXNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC5hbm94aWMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5hbm94aWMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX2Fub3hpY19uZWcpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIE5lZ2F0aXZlIEVkZ2VzIE9ubHksIFNoYWxsb3cgQW5veGljIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImJsdWUiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKYGBgCgoKIyMjIFN1bW1hcnkgTmV0d29yayBmaWd1cmUKCmBgYHtyfQojIFNldCB1cCBpbiBwYW5lbHMKb3AgPC0gcGFyKG9tYT1jKDIsLjUsLjUsMCksIyBSb29tIGZvciB0aGUgdGl0bGVzIGFuZCBsZWdlbmQKICBtZnJvdz1jKDQsMiksCiAgbWFpPWMoLjE1LC4zLC4xNSwuMSkpCiMgUGFuZWwgMS0gQWxsIGRlcHRocywgcG9zaXRpdmUgbmV0d29yawpwbG90KGdycGgucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfcG9zKQptdGV4dCAoIlBvc2l0aXZlIiwgc2lkZSA9IDMsIG91dGVyID0gVFJVRSwgbGluZSA9IC0xLCBhZGogPSAwLjIyLCBjZXggPSAuOCkKbXRleHQoIkFsbCBkZXB0aHMiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDItIEFsbCBkZXB0aHMsIG5lZ2F0aXZlIG5ldHdvcmsKcGxvdChncnBoLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX25lZykKbXRleHQgKCJOZWdhdGl2ZSIsIHNpZGUgPSAzLCBvdXRlciA9IFRSVUUsIGxpbmUgPSAtMSwgYWRqID0gLjgsIGNleCA9IC44KQojIFBhbmVsIDMtIE94eWNsaW5lLCBwb3NpdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC5veHljbGluZS5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLm94eWNsaW5lLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl9veHljbGluZV9wb3MpCm10ZXh0KCJPeHljbGluZSIsIHNpZGU9MiwgY2V4ID0gLjgsIGxpbmUgPSAxLjUpCiMgUGFuZWwgNC0gT3h5Y2xpbmUsIG5lZ2F0aXZlIG5ldHdvcmsKcGxvdChncnBoLm94eWNsaW5lLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgub3h5Y2xpbmUubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX294eWNsaW5lX25lZykKIyBQYW5lbCA1LSBBbm94aWMsIHBvc2l0aXZlIG5ldHdvcmsKcGxvdChncnBoLmFub3hpYy5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLmFub3hpYy5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfYW5veGljX3BvcykKbXRleHQoIkFub3hpYyIsIHNpZGU9MiwgY2V4ID0gLjgsIGxpbmUgPSAxLjUpCiMgUGFuZWwgNi0gQW5veGljLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC5hbm94aWMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5hbm94aWMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX2Fub3hpY19uZWcpCiMgUGFuZWwgNy0gMiBEb21haW5zLCBwb3NpdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC4yZG9tYWlucy5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLjJkb21haW5zLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWluc19wb3MpCm10ZXh0KCJQcm9rIE9ubHkiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDgtIDIgRG9tYWlucywgbmVnYXRpdmUgbmV0d29yawpwbG90KGdycGguMmRvbWFpbnMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC4yZG9tYWlucy5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfMmRvbWFpbnNfbmVnKQojIEFkZCBsZWdlbmQKcGFyKG9wKSAjIExlYXZlIHRoZSBsYXN0IHBsb3QKb3AgPC0gcGFyKHVzcj1jKDAsMSwwLDEpLCAjIFJlc2V0IHRoZSBjb29yZGluYXRlcwogICAgICAgICAgeHBkPU5BKSAgICAgICAgICMgQWxsb3cgcGxvdHRpbmcgb3V0c2lkZSB0aGUgcGxvdCByZWdpb24KbGVnZW5kKC4xNSwtMC4wNCwgYygiQXJjaGFlYSIsIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksIGNvbD1jKCJyZWQiLCAiZ3JlZW4iLCAiYmx1ZSIsICJ5ZWxsb3ciKSwgcGNoID0gYygxNiksIGJveC5jb2w9TkEsIGNleCA9IC44LCBob3JpeiA9IFQsIHguaW50ZXJzcCA9IGMoMC4zKSkKCgoKCiMgU2F2ZSBmaWd1cmUKIyBTZXQgdXAgRVBTIGFuZCBtYWtlIHBsb3QKc2V0RVBTKHdpZHRoID0gNiwgaGVpZ2h0ID0gOSkKcG9zdHNjcmlwdCgiRmlndXJlcy9OZXR3b3Jrc19wb3NfbmVnLmVwcyIpCm9wIDwtIHBhcihvbWE9YygyLC41LC41LDApLCMgUm9vbSBmb3IgdGhlIHRpdGxlcyBhbmQgbGVnZW5kCiAgbWZyb3c9Yyg0LDIpLAogIG1haT1jKC4xNSwuMywuMTUsLjEpKQojIFBhbmVsIDEtIEFsbCBkZXB0aHMsIHBvc2l0aXZlIG5ldHdvcmsKcGxvdChncnBoLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3BvcykKbXRleHQgKCJQb3NpdGl2ZSIsIHNpZGUgPSAzLCBvdXRlciA9IFRSVUUsIGxpbmUgPSAtMSwgYWRqID0gMC4yMiwgY2V4ID0gLjgpCm10ZXh0KCJBbGwgZGVwdGhzIiwgc2lkZT0yLCBjZXggPSAuOCwgbGluZSA9IDEuNSkKIyBQYW5lbCAyLSBBbGwgZGVwdGhzLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl9uZWcpCm10ZXh0ICgiTmVnYXRpdmUiLCBzaWRlID0gMywgb3V0ZXIgPSBUUlVFLCBsaW5lID0gLTEsIGFkaiA9IC44LCBjZXggPSAuOCkKIyBQYW5lbCAzLSBPeHljbGluZSwgcG9zaXRpdmUgbmV0d29yawpwbG90KGdycGgub3h5Y2xpbmUucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5veHljbGluZS5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3Jfb3h5Y2xpbmVfcG9zKQptdGV4dCgiT3h5Y2xpbmUiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDQtIE94eWNsaW5lLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC5veHljbGluZS5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLm94eWNsaW5lLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl9veHljbGluZV9uZWcpCiMgUGFuZWwgNS0gQW5veGljLCBwb3NpdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC5hbm94aWMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC5hbm94aWMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX2Fub3hpY19wb3MpCm10ZXh0KCJBbm94aWMiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDYtIEFub3hpYywgbmVnYXRpdmUgbmV0d29yawpwbG90KGdycGguYW5veGljLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGguYW5veGljLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl9hbm94aWNfbmVnKQojIFBhbmVsIDctIDIgRG9tYWlucywgcG9zaXRpdmUgbmV0d29yawpwbG90KGdycGguMmRvbWFpbnMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC4yZG9tYWlucy5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfMmRvbWFpbnNfcG9zKQptdGV4dCgiUHJvayBPbmx5Iiwgc2lkZT0yLCBjZXggPSAuOCwgbGluZSA9IDEuNSkKIyBQYW5lbCA4LSAyIERvbWFpbnMsIG5lZ2F0aXZlIG5ldHdvcmsKcGxvdChncnBoLjJkb21haW5zLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGguMmRvbWFpbnMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yXzJkb21haW5zX25lZykKIyBBZGQgbGVnZW5kCnBhcihvcCkgIyBMZWF2ZSB0aGUgbGFzdCBwbG90Cm9wIDwtIHBhcih1c3I9YygwLDEsMCwxKSwgIyBSZXNldCB0aGUgY29vcmRpbmF0ZXMKICAgICAgICAgIHhwZD1OQSkgICAgICAgICAjIEFsbG93IHBsb3R0aW5nIG91dHNpZGUgdGhlIHBsb3QgcmVnaW9uCmxlZ2VuZCguMTUsLTAuMDQsIGMoIkFyY2hhZWEiLCJCYWN0ZXJpYSIsICJFdWthcnlhIiwgIk5vIEJsYXN0IEhpdCIpLCBjb2w9YygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAieWVsbG93IiksIHBjaCA9IGMoMTYpLCBib3guY29sPU5BLCBjZXggPSAuOCwgaG9yaXogPSBULCB4LmludGVyc3AgPSBjKDAuMykpCmRldi5vZmYoKQoKCgpgYGAKCgoKCiMjIyBDb2xsZWN0IG5ldHdvcmsgcGFyYW1ldGVycwoKIyMjIyBOdW1iZXIgb2YgZWRnZXMKdGhlIG51bWJlciBvZiBlZGdlcyBhbmQgaG93IG1hbnkgYXJlIHBvc2l0aXZlIHZzIG5lZ2F0aXZlCmBgYHtyfQojIHRvdGFsIG51bWJlciBvZiBlZGdlcyBpbiBmdWxsIGRhdGFzZXQgbmV0d29yawpsZW5ndGgoRShncnBoKSR3ZWlnaHQpCiMgcGVyY2VudCBvZiBuZWcgZWRnZXMgCihzdW0oRShncnBoKSR3ZWlnaHQ8MCkvbGVuZ3RoKEUoZ3JwaCkkd2VpZ2h0KSkqMTAwCgojIHRvdGFsIG51bWJlciBvZiBlZGdlcyBpbiAyLWRvbWFpbiBkYXRhc2V0IG5ldHdvcmsKbGVuZ3RoKEUoZ3JwaC4yZG9tYWlucykkd2VpZ2h0KQojIHBlcmNlbnQgb2YgbmVnIGVkZ2VzIAooc3VtKEUoZ3JwaC4yZG9tYWlucykkd2VpZ2h0PDApL2xlbmd0aChFKGdycGguMmRvbWFpbnMpJHdlaWdodCkpKjEwMAoKIyB0b3RhbCBudW1iZXIgb2YgZWRnZXMgaW4gb3h5Y2xpbmUgbmV0d29yawpsZW5ndGgoRShncnBoLm94eWNsaW5lKSR3ZWlnaHQpCiMgcGVyY2VudCBvZiBuZWcgZWRnZXMgCihzdW0oRShncnBoLm94eWNsaW5lKSR3ZWlnaHQ8MCkvbGVuZ3RoKEUoZ3JwaC5veHljbGluZSkkd2VpZ2h0KSkqMTAwCgojIHRvdGFsIG51bWJlciBvZiBlZGdlcyBpbiBhbm94aWMgbmV0d29yawpsZW5ndGgoRShncnBoLmFub3hpYykkd2VpZ2h0KQojIHBlcmNlbnQgb2YgbmVnIGVkZ2VzIAooc3VtKEUoZ3JwaC5hbm94aWMpJHdlaWdodDwwKS9sZW5ndGgoRShncnBoLmFub3hpYykkd2VpZ2h0KSkqMTAwCgpgYGAKCkRlY2xpbmluZyBudW1iZXIgb2YgdG90YWwgZWRnZXMgZ29pbmcgZnJvbSBmdWxsIGRhdGFzZXQgLS0+IG94eWNsaW5lIG9ubHkgLS0+IGFub3hpYyBvbmx5LiBCdXQgdGhlIHBlcmNlbnRhZ2Ugb2YgbmVnYXRpdmUgYXNzb2NpYXRpb25zIGlzIHNpbWlsYXIgKDM0LjQtMzcuNyUpLiBNb3N0IGFzc29jaWF0aW9ucyAofjY1JSkgaW4gZWFjaCBuZXR3b3JrIGFyZSAqcG9zaXRpdmUqLgoKIyMjIyBFZGdlIGRlbnNpdHkKdGhlIG51bWJlciBvZiBlZGdlcyByZWxhdGl2ZXMgdG8gdG90YWwgbnVtYmVyIG9mIHBvc3NpYmxlIGVkZ2VzCmBgYHtyfQplZGdlX2RlbnNpdHkoZ3JwaCkqMTAwCmVkZ2VfZGVuc2l0eShncnBoLjJkb21haW5zKSoxMDAKZWRnZV9kZW5zaXR5KGdycGgub3h5Y2xpbmUpKjEwMAplZGdlX2RlbnNpdHkoZ3JwaC5hbm94aWMpKjEwMApgYGAKVGhlIGZ1bGwgZGF0YXNldCBoYXMgdGhlIGhpZ2hlc3QgZWRnZSBkZW5zaXR5LCB0aGVuIG94eWNsaW5lLCB0aGVuIGFub3hpYwoKIyMjIyBDb21wb25lbnQKVGhlIHNpemUgb2YgdGhlIGNvbXBvbmVudHMsIG9yICJjbHVtcHMsIiBpbiB0aGUgbmV0d29yaywgYW5kIGhvdyBtYW55IG1lbWJlcnMgaW4gZWFjaApgYGB7cn0KIyBmdWxsIGRhdGFzZXQKY29tcG9uZW50cyhncnBoKSRubwpjb21wb25lbnRzKGdycGgpJGNzaXplCgojIDIgZG9tYWlucwpjb21wb25lbnRzKGdycGguMmRvbWFpbnMpJG5vCmNvbXBvbmVudHMoZ3JwaC4yZG9tYWlucykkY3NpemUKCiMgb3h5Y2xpbmUKY29tcG9uZW50cyhncnBoLm94eWNsaW5lKSRubwpjb21wb25lbnRzKGdycGgub3h5Y2xpbmUpJGNzaXplCgojIGFub3hpYwpjb21wb25lbnRzKGdycGguYW5veGljKSRubwpjb21wb25lbnRzKGdycGguYW5veGljKSRjc2l6ZQpgYGAKClRoZSBhbm94aWMgbmV0d29yayBpcyBtb3N0IGRpc2pvaW50ZWQsIHdpdGggNDggY2x1bXBzIGFuZCB0aGUgbGFyZ2VzdCBjb250YWluaW5nIG9ubHkgMjQgbWVtYmVycy4gVGhlIG5leHQgaXMgb3h5Y2xpbmUsIHdpdGggMzIgY2x1bXBzIGFuZCB0aGUgbGFyZ2VzdCB3aXRoIDE0NCBtZW1iZXJzLiBUaGVuIHRoZSBmdWxsIGRhdGFzZXQgaGFzIG9ubHkgMjcgY2x1bXBzIGFuZCB0aGUgbGFyZ2VzdCBjbHVtcCBjb250YWlucyAyNjIgbWVtYmVycy4KCgoKIyMjIyBBdmVyYWdlIHBhdGggbGVuZ3RoClBhdGggaXMgdGhlIHNob3J0ZXN0IGRpc3RhbmNlIGJldHdlZW4gdHdvIG5vZGVzIChmZXdlc3QgbnVtYmVyIG9mIGVkZ2VzKS4gQXZlcmFnZSBwYXRoIGxlbmd0aCBvZiBhIG5ldHdvcmsgZ2l2ZXMgYSBzZW5zZSBvZiBob3cgY29ubmVjdGVkIGV2ZXJ5IG5vZGUgaXMgdG8gYW5vdGhlci4gVW5jb25uZWN0ZWQgaHVicyBpbiB0aGUgbmV0b3dyayB3aWxsIGhhdmUgImluZmluaXRlIiBwYXRocyBmcm9tIG90aGVyIGh1YnMuIFRoZSBmdW5jdGlvbiBgbWVhbl9kaXN0YW5jZWAgaWdub3JlcyB0aGUgaW5maW5pdGUgZWRnZXMgYW5kIGNhbGN1bGF0ZXMgdGhlIGF2ZXJhZ2Ugb2YgYWxsIG90aGVyIGVkZ2VzCmBgYHtyfQptZWFuX2Rpc3RhbmNlKGdycGgpCm1lYW5fZGlzdGFuY2UoZ3JwaC4yZG9tYWlucykKbWVhbl9kaXN0YW5jZShncnBoLm94eWNsaW5lKQptZWFuX2Rpc3RhbmNlKGdycGguYW5veGljKQpgYGAKVGhlIGxvbmdlc3QgYXZlcmFnZSBwYXRoIGxlbmd0aCBpcyBpbiB0aGUgb3h5Y2xpbmUsIGZvbGxvd2VkIGJ5IHRoZSB3aG9sZSBkYXRhc2V0IGFuZCB0aGVuIGFub3hpYy4gTWVhbmluZyB0aGUgbm9kZXMgaW4gdGhlIGFub3hpYyBhcmUgbW9yZSBjbG9zZWx5IGFzc29jaWF0ZWQgd2l0aCBlYWNoIG90aGVyLiBFdmVuIHRob3VnaCB0aGVyZSBhcmUgbW9yZSBodWJzIGluIGFub3hpYywgYXMgc2hvd24gYWJvdmUsIHRoZSBub2RlcyBpbiB0aGUgaHVicyBhcmUgY2xvc2UgdG8gZWFjaCBvdGhlci4gVGhlIG94eWNsaW5lIGh1YnMgaGF2ZSB0aGUgbG9uZ2VzdCBhdmVyYWdlIGRpc3RhbmNlcyBiZXR3ZWVuIG5vZGVzLgoKCgojIyMgV2hpY2ggQVNWcyBhcmUgaW4gcG9zaXRpdmUgdnMgbmVnYXRpdmUgbmV0d29ya3M/CmBgYHtyfQojIFBvc2l0aXZlIG5ldHdvcmstIGZ1bGwgZGF0YXNldApncnBoLnBvc19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC5wb3MsICdib3RoJykKZ3JwaC5wb3NfZGZfdmVydCA8LSBncnBoLnBvc19kZiR2ZXJ0aWNlcwojIEhvdyBtYW55IFN5bmRpbmlhbGVzIGFuZCBQb2x5Y3lzdGluZWE/CmFzLmRhdGEuZnJhbWUodGFibGUoZ3JwaC5wb3NfZGZfdmVydCQidGF4b25vbXktNSIpKQojIDM3IERpbm8tR3JvdXAtSUkKIyAzIERpbm8tR3JvdXAtSQojIDM0IFNwdW1lbGxhcmlkYQoKIyBOZWdhdGl2ZSBuZXR3b3JrLSBmdWxsIGRhdGFzZXQKZ3JwaC5uZWdfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgubmVnLCAnYm90aCcpCmdycGgubmVnX2RmX3ZlcnQgPC0gZ3JwaC5uZWdfZGYkdmVydGljZXMKIyBIb3cgbWFueSBTeW5kaW5pYWxlcyBhbmQgUG9seWN5c3RpbmVhPwphcy5kYXRhLmZyYW1lKHRhYmxlKGdycGgubmVnX2RmX3ZlcnQkInRheG9ub215LTUiKSkKIyAxOCBEaW5vLUdyb3VwLUlJCiMgNCBEaW5vLUdyb3VwLUkKIyAxNyBTcHVtZWxsYXJpZGEKCgoKIyBQb3NpdGl2ZSBuZXR3b3JrLSBveHljbGluZQpncnBoLm94eWNsaW5lLnBvc19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC5veHljbGluZS5wb3MsICdib3RoJykKZ3JwaC5veHljbGluZS5wb3NfZGZfdmVydCA8LSBncnBoLm94eWNsaW5lLnBvc19kZiR2ZXJ0aWNlcwojIEhvdyBtYW55IFN5bmRpbmlhbGVzIGFuZCBQb2x5Y3lzdGluZWE/CmFzLmRhdGEuZnJhbWUodGFibGUoZ3JwaC5veHljbGluZS5wb3NfZGZfdmVydCQidGF4b25vbXktNSIpKQojIDM0IERpbm8tR3JvdXAtSUkKIyAxIERpbm8tR3JvdXAtSQojIDI0IFNwdW1lbGxhcmlkYQoKIyBOZWdhdGl2ZSBuZXR3b3JrLSBveHljbGluZQpncnBoLm94eWNsaW5lLm5lZ19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC5veHljbGluZS5uZWcsICdib3RoJykKZ3JwaC5veHljbGluZS5uZWdfZGZfdmVydCA8LSBncnBoLm94eWNsaW5lLm5lZ19kZiR2ZXJ0aWNlcwojIEhvdyBtYW55IFN5bmRpbmlhbGVzIGFuZCBQb2x5Y3lzdGluZWE/CmFzLmRhdGEuZnJhbWUodGFibGUoZ3JwaC5veHljbGluZS5uZWdfZGZfdmVydCQidGF4b25vbXktNSIpKQojIDI0IERpbm8tR3JvdXAtSUkKIyAxIERpbm8tR3JvdXAtSQojIDkgU3B1bWVsbGFyaWRhCgoKCiMgUG9zaXRpdmUgbmV0d29yay0gYW5veGljCmdycGguYW5veGljLnBvc19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC5hbm94aWMucG9zLCAnYm90aCcpCmdycGguYW5veGljLnBvc19kZl92ZXJ0IDwtIGdycGguYW5veGljLnBvc19kZiR2ZXJ0aWNlcwojIEhvdyBtYW55IFN5bmRpbmlhbGVzIGFuZCBQb2x5Y3lzdGluZWE/CmFzLmRhdGEuZnJhbWUodGFibGUoZ3JwaC5hbm94aWMucG9zX2RmX3ZlcnQkInRheG9ub215LTUiKSkKIyAwIERpbm8tR3JvdXAtSUkKIyAxIERpbm8tR3JvdXAtSQojIDggU3B1bWVsbGFyaWRhCgojIE5lZ2F0aXZlIG5ldHdvcmstIGFub3hpYwpncnBoLmFub3hpYy5uZWdfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGguYW5veGljLm5lZywgJ2JvdGgnKQpncnBoLmFub3hpYy5uZWdfZGZfdmVydCA8LSBncnBoLmFub3hpYy5uZWdfZGYkdmVydGljZXMKIyBIb3cgbWFueSBTeW5kaW5pYWxlcyBhbmQgUG9seWN5c3RpbmVhPwphcy5kYXRhLmZyYW1lKHRhYmxlKGdycGguYW5veGljLm5lZ19kZl92ZXJ0JCJ0YXhvbm9teS01IikpCiMgMCBEaW5vLUdyb3VwLUlJCiMgMCBEaW5vLUdyb3VwLUkKIyAwIFNwdW1lbGxhcmlkYQpgYGAKCiMjIyBXaGF0IGFyZSB0aGUgaW50ZXJlc3RpbmVkIGV1a2FyeW90aWMgZ3JvdXBzIGNvbm5lY3RlZCB0bz8KYGBge3J9CiMgUG9zaXRpdmUgYXNzb2NpYXRpb25zOiBTeW5kaW5pYWxlcwojIFB1bGwgb3V0IG5hbWVzIG9mIFN5bmRpbmlhbGVzIGFuZCBTcHVtZWxsYXJpZGEgQVNWcwpncnBoLnBvc19kZl92ZXJ0X3N5bmQgPC0gZmlsdGVyKGdycGgucG9zX2RmX3ZlcnQsIGB0YXhvbm9teS00YCA9PSAiU3luZGluaWFsZXMiKQojIGZpbHRlciBncmFwaCB0byBpbmNsdWRlIG9ubHkgZWRnZXMgY29ubmVjdGVkIHRvIHRob3NlIG5vZGVzCmdycGgucG9zX3N5bmRfZWRnZXMgPC0gRShncnBoLnBvcylbZnJvbShncnBoLnBvc19kZl92ZXJ0X3N5bmQkbmFtZSldICMgZ2V0IGVkZ2VzCmdycGgucG9zLnN5bmRfc3ViZ3JhcGggPC0gc3ViZ3JhcGguZWRnZXMoZ3JwaC5wb3MsIGdycGgucG9zX3N5bmRfZWRnZXMpICMgZmlsdGVyIGdyYXBoCiMgZ2V0IHRheG9ub215IG9mIHJlbWFpbmluZyBub2RlcywgcmVtb3ZpbmcgdGhlIFN5bmRpbmlhbGVzIGZyb20gdGFibGUgKGVnLiBvbmx5IGNvbm5lY3RlZCBub2RlcykgYW5kIGdyb3VwaW5nIGJ5IHRheG9ub215CmdycGgucG9zX2RmX3ZlcnQgJT4lCiAgZmlsdGVyKGBuYW1lYCAlaW4lIFYoZ3JwaC5wb3Muc3luZF9zdWJncmFwaCkkbmFtZSAmICFgdGF4b25vbXktNGAgJWluJSBjKCJTeW5kaW5pYWxlcyIpKSAlPiUKICBjb3VudChgdGF4b25vbXktMmAsYHRheG9ub215LTNgLGB0YXhvbm9teS00YCxgdGF4b25vbXktNWAsIG5hbWUgPSAiY291bnQiLCBzb3J0ID0gVFJVRSkKCiMgUG9zaXRpdmUgYXNzb2NpYXRpb25zOiBTcHVtZWxsYXJpZGEKZ3JwaC5wb3NfZGZfdmVydF9zcHVtIDwtIGZpbHRlcihncnBoLnBvc19kZl92ZXJ0LCBgdGF4b25vbXktNWAgPT0gIlNwdW1lbGxhcmlkYSIpCmdycGgucG9zX3NwdW1fZWRnZXMgPC0gRShncnBoLnBvcylbZnJvbShncnBoLnBvc19kZl92ZXJ0X3NwdW0kbmFtZSldIApncnBoLnBvcy5zcHVtX3N1YmdyYXBoIDwtIHN1YmdyYXBoLmVkZ2VzKGdycGgucG9zLCBncnBoLnBvc19zcHVtX2VkZ2VzKSAKZ3JwaC5wb3NfZGZfdmVydCAgJT4lIAogIGZpbHRlcihgbmFtZWAgJWluJSBWKGdycGgucG9zLnNwdW1fc3ViZ3JhcGgpJG5hbWUgJiAhYHRheG9ub215LTVgICVpbiUgYygiU3B1bWVsbGFyaWRhIikpICU+JQogIGNvdW50KGB0YXhvbm9teS0yYCxgdGF4b25vbXktM2AsYHRheG9ub215LTRgLGB0YXhvbm9teS01YCwgbmFtZSA9ICJjb3VudCIsIHNvcnQgPSBUUlVFKQoKIyBOZWdhdGl2ZSBhc3NvY2lhdGlvbnM6IFN5bmRpbmlhbGVzCmdycGgubmVnX2RmX3ZlcnRfc3luZCA8LSBmaWx0ZXIoZ3JwaC5uZWdfZGZfdmVydCwgYHRheG9ub215LTRgID09ICJTeW5kaW5pYWxlcyIpCmdycGgubmVnX3N5bmRfZWRnZXMgPC0gRShncnBoLm5lZylbZnJvbShncnBoLm5lZ19kZl92ZXJ0X3N5bmQkbmFtZSldIApncnBoLm5lZy5zeW5kX3N1YmdyYXBoIDwtIHN1YmdyYXBoLmVkZ2VzKGdycGgubmVnLCBncnBoLm5lZ19zeW5kX2VkZ2VzKSAKZ3JwaC5uZWdfZGZfdmVydCAlPiUKICBmaWx0ZXIoYG5hbWVgICVpbiUgVihncnBoLm5lZy5zeW5kX3N1YmdyYXBoKSRuYW1lICYgIWB0YXhvbm9teS00YCAlaW4lIGMoIlN5bmRpbmlhbGVzIikpICU+JQogIGNvdW50KGB0YXhvbm9teS0yYCxgdGF4b25vbXktM2AsYHRheG9ub215LTRgLGB0YXhvbm9teS01YCwgbmFtZSA9ICJjb3VudCIsIHNvcnQgPSBUUlVFKQoKIyBOZWdhdGl2ZSBhc3NvY2lhdGlvbnM6IFNwdW1lbGxhcmlkYQpncnBoLm5lZ19kZl92ZXJ0X3NwdW0gPC0gZmlsdGVyKGdycGgubmVnX2RmX3ZlcnQsIGB0YXhvbm9teS01YCA9PSAiU3B1bWVsbGFyaWRhIikKZ3JwaC5uZWdfc3B1bV9lZGdlcyA8LSBFKGdycGgubmVnKVtmcm9tKGdycGgubmVnX2RmX3ZlcnRfc3B1bSRuYW1lKV0gCmdycGgubmVnLnNwdW1fc3ViZ3JhcGggPC0gc3ViZ3JhcGguZWRnZXMoZ3JwaC5uZWcsIGdycGgubmVnX3NwdW1fZWRnZXMpIApncnBoLm5lZ19kZl92ZXJ0ICU+JSAKICBmaWx0ZXIoYG5hbWVgICVpbiUgVihncnBoLm5lZy5zcHVtX3N1YmdyYXBoKSRuYW1lICYgIWB0YXhvbm9teS01YCAlaW4lIGMoIlNwdW1lbGxhcmlkYSIpKSAlPiUKICBjb3VudChgdGF4b25vbXktMmAsYHRheG9ub215LTNgLGB0YXhvbm9teS00YCxgdGF4b25vbXktNWAsIG5hbWUgPSAiY291bnQiLCBzb3J0ID0gVFJVRSkKCgojIEFsc28gY2tlY2sgb3V0IENhcmlhY290cmljaGVhIHRvIGh5cG90aGVzaXplIGFib3V0IHBvc3NpYmxlIHN5bWJpb3NpcyBwYXJ0bmVycwojIFBvc2l0aXZlIGFzc29jaWF0aW9ucyBvbmx5CmdycGgucG9zX2RmX3ZlcnRfY2FyaSA8LSBmaWx0ZXIoZ3JwaC5wb3NfZGZfdmVydCwgYHRheG9ub215LTRgID09ICJDYXJpYWNvdHJpY2hlYSIpCmdycGgucG9zX2NhcmlfZWRnZXMgPC0gRShncnBoLnBvcylbZnJvbShncnBoLnBvc19kZl92ZXJ0X2NhcmkkbmFtZSldIApncnBoLnBvcy5jYXJpX3N1YmdyYXBoIDwtIHN1YmdyYXBoLmVkZ2VzKGdycGgucG9zLCBncnBoLnBvc19jYXJpX2VkZ2VzKSAKZ3JwaC5wb3NfZGZfdmVydCAlPiUgCiAgZmlsdGVyKGBuYW1lYCAlaW4lIFYoZ3JwaC5wb3MuY2FyaV9zdWJncmFwaCkkbmFtZSAmICFgdGF4b25vbXktNGAgJWluJSBjKCJDYXJpYWNvdHJpY2hlYSIpKSU+JQogIGNvdW50KGB0YXhvbm9teS0yYCxgdGF4b25vbXktM2AsYHRheG9ub215LTRgLGB0YXhvbm9teS01YCwgbmFtZSA9ICJjb3VudCIsIHNvcnQgPSBUUlVFKQpgYGAKCgoKCiMjIyBBbmFseXplIG5vZGUtbGV2ZWwgbWVhc3VyZXMgZm9yIGtleXN0b25lLW5lc3MKQ2FsY3VsYXRlIDQgcGFyYW1ldGVycyBmb3IgZWFjaCBpbmRpdmlkdWFsIG5vZGU6CgotIGRlZ3JlZSAoZGUpID0gbnVtYmVyIG9mIGVkZ2VzIGNvbm5lY3RlZCB0byB0aGUgbm9kZQotIHN0cmVuZ3RoIChzdCkgPSBzdW0gb2YgdGhlIHdlaWdodHMgb2YgYWxsIHRoZSBlZGdlcyBjb25uZWN0ZWQgdG8gdGhlIG5vZGUKLSBiZXR3ZWVubmVzcyBjZW50cmFsaXR5IChiZSkgPSB0aGUgbnVtYmVyIG9mIHNob3J0ZXN0IHBhdGhzIChiZXR3ZWVuIGFsbCBvdGhlciBub2RlcykgdGhhdCBnbyB0aHJvdWdoIHRoZSBub2RlCi0gY2xvc2VuZXNzIGNlbnRyYWxpdHkgKGNjKSA9IGF2ZXJhZ2UgZGlzdGFuY2UgKG51bWJlciBvZiBlZGdlcykgb2YgdGhlIG5vZGUgdG8gYW55IG90aGVyIG5vZGUKLSBsb2NhbCBjbHVzdGVyaW5nIGNvZWZmaWNpZW50IChsLmNsdXN0ZXIpICwgYWthIHRyYW5zaXRpdml0eSA9IHRoZSBwcm9wb3J0aW9uIG9mIHR3byBub2RlcyB0aGF0IGFyZSBjb25uZWN0ZWQgYnkgYSB0aGlyZCBub2RlLCBvZiBiZWluZyBjb25uZWN0ZWQgdG8gZWFjaCBvdGhlciAoZWcuIGhvdyBtYW55IG9mIGEgbm9kZSdzICJmcmllbmRzIiBrbm93IGVhY2ggb3RoZXI/KQoKCmBgYHtyfQojIEZpcnN0IGNoYW5nZSB0aGUgd2VpZ2h0cyBvZiB0aGUgZWRnZXMgKHRoZSBzdHJlbmd0aCBvZiBhc3NvY2lhdGlvbikgdG8gYWJzb2x1dGUgdmFsdWUuIFRoaXMgd29uJ3Qgd29yayBpZiBuZWdhdGl2ZSBlZGdlIHdlaWdodHMgYXJlIGxlZnQgd2l0aCB0aGUgbmVnYXRpdmUgc2lnbnMKRShncnBoKSR3ZWlnaHQgPC0gYWJzKEUoZ3JwaCkkd2VpZ2h0KQoKIyBjYWxjdWxhdGUgcGFyYW1ldGVycwpuYW1lcz1WKGdycGgpJG5hbWUKZGU9ZGVncmVlKGdycGgpCnN0PWdyYXBoLnN0cmVuZ3RoKGdycGgpCmJlPWJldHdlZW5uZXNzKGdycGgsIG5vcm1hbGl6ZWQ9VCkKY2MgPSBjbG9zZW5lc3MoZ3JwaCkKbC5jbHVzdGVyPXRyYW5zaXRpdml0eShncnBoLCAibG9jYWwiKQoKCiMgYXNzZW1ibGUgZGF0YXNldCBhbmQgbWF0Y2ggZnVsbCB0YXhvbm9teQpmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzIDwtIGRhdGEuZnJhbWUoSUQ9bmFtZXMsIGRlZ3JlZT1kZSwgc3RyZW5ndGg9c3QsIGJldHdlZW5uZXNzPWJlLCBjbG9zZW5lc3MgPSBjYywgY2x1c3RlcmluZ19jb2VmZmljaWVudCA9IGwuY2x1c3RlcikgCgojIFB1dCBiYWNrIGJhYyB0YXhhb25vbXkKdGVtcDEgPC0gbGVmdF9qb2luKGZ1bGxkYXRlc2V0X25vZGVfbWVhc3VyZXNbMTpkaW0ob3R1X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnMpKVsxXSxdLCBiYWNfdGF4b25vbXksIGJ5ID0gYygiSUQiID0gIiNPVFUgSUQiKSkgCiMgZGVsZXRlICJUYXhvbm9teS05IiBhbmQgInJlZmluZWQgVGF4b25vbXkiIGNvbHVtbnMgCnRlbXAxIDwtIHNlbGVjdCh0ZW1wMSwgLSJ0YXhvbm9teS05IiwgLSJSZWZpbmVkIHRheG9ub215IikKCgp0ZW1wMiA8LSBsZWZ0X2pvaW4oZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlc1tzdW0oZGltKG90dV90YWJsZShwc19iYWNfcHJ1bmVkXzNkb21haW5zKSlbMV0sMSk6c3VtKGRpbShvdHVfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWlucykpWzFdLGRpbShvdHVfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnMpKVsxXSksXSwgYXJjaF90YXhvbm9teSwgYnkgPSBjKCJJRCIgPSAiI09UVSBJRCIpKSAKCgp0ZW1wMyA8LSBsZWZ0X2pvaW4oZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlc1tzdW0oZGltKG90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWlucykpWzFdLCBkaW0ob3R1X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnMpKVsxXSwxKTpzdW0oZGltKG90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWlucykpWzFdLCBkaW0ob3R1X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnMpKVsxXSxkaW0ob3R1X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnMpKVsxXSksXSwgZXVrX3RheG9ub215LCBieSA9IGMoIklEIiA9ICIjQVNWIElEIikpIAojIFJlbmFtZSBjb2wgbmFtZXMgdG8gbWF0Y2ggdGhvc2UgZnJvbSBCYWMgYW5kIEFyY2gKdGVtcDMgPC0gdGVtcDMgJT4lCiAgcmVuYW1lKCJ0YXhvbm9teS0xIiA9IEtpbmdkb20sICJ0YXhvbm9teS0yIiA9IFN1cGVyZ3JvdXAsICJ0YXhvbm9teS0zIiA9IERpdmlzaW9uLCAidGF4b25vbXktNCIgPSBDbGFzcywgInRheG9ub215LTUiID0gT3JkZXIsICJ0YXhvbm9teS02IiA9IEZhbWlseSwgInRheG9ub215LTciID0gR2VudXMsICJ0YXhvbm9teS04IiA9IFNwZWNpZXMpCgojIGNvbWJpbmUgYmFjayBhbGwgMyBkb21haW5zLCB3aXRoIG5ldyBuYW1lcyBhcyByb3cgbmFtZXMgaW4gYSBkYXRhZnJhbWUKZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlcyA8LSByYmluZCh0ZW1wMSwgdGVtcDIsIHRlbXAzKQpmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzCmBgYAoKUGxvdCBiZXR3ZWVuZXNzIHZzIGRlZ3JlZSBmb3IgZWFjaCBub2RlLiAKLSBUaXB0b24gZXQgYWwuIGFyZ3VlIHRoYXQgbm9kZXMgd2l0aCBoaWdoIGJldHdlZW5uZXNzIGFyZSAiYm90dGxlbmVja3MiIG9yIGltcG9ydGFudCBjb25uZWN0b3JzIGFuZCBub2RlcyB3aXRoIGhpZ2ggZGVncmVlIGFyZSAiaHVicyIKLSBCZXJyeSBldCBhbC4gYXJndWUgdGhhdCBub2RlcyB3aXRoIGxvdyBiZXR3ZWVubmVzcywgaGlnaCBkZWdyZWUsIGhpZ2ggY2xvc2VuZXNzLCBhbmQgaGlnaCB0cmFuc2l0aXZpdHkgYXJlIGNhbmRpZGF0ZSBrZXlzdG9uZSBzcGVjaWVzCiAgLSBBZGQgaW4gY2xvc2VuZXNzIGludG8gdGhlIG5vZGUncyBwbG90bHkgbGFiZWwgc2luY2UgdGhlc2UgZG9uJ3QgdmFyeSBtdWNoIG5vZGUtdG8tbm9kZSBhbmQgd291bGRuJ3QgbWFrZSBzZW5zZSB0byBwbG90CmBgYHtyfQojIHJlcGxhY2UgTkEgaW4gdGF4b25vbXkgd2l0aCB1bmlkZW50aWZpZWQgCiMgcmVtb3ZlIG5vZGVzIHdpdGggMCBiZXR3ZWVubmVzcyAoY2FuJ3QgY2FsY3VsYXRlIGxvZzEwIG9mIDApCiMgcmVwbGFjZSBOYU4gY2x1c3RlcmluZyBjb2VmcyB3aXRoIDAKZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlcyA8LSBmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzICU+JSAKICByZXBsYWNlKGlzLm5hKC4pLCAidW5pZGVudGlmaWVkIikgJT4lCiAgZmlsdGVyKCFiZXR3ZWVubmVzcyA9PSAwKSAKCiMgZ2V0IGVub3VnaCBjb2xvcnMgYW5kIHJhbmRvbWx5IHJlYXJyYW5nZSBzbyB0aGV5IGFyZSBlYXNpZXIgdG8gc2VwYXJhdGUgb24gdGhlIHBsb3QKbXljb2xvcnMgPC0gY29sb3JSYW1wUGFsZXR0ZShicmV3ZXIucGFsKDEyLCAiUGFpcmVkIikpKGxlbmd0aCh1bmlxdWUoZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlcyRgdGF4b25vbXktM2ApKSkKc2V0LnNlZWQoMTIzKQpteWNvbG9ycyA8LSAgc2FtcGxlKG15Y29sb3JzKQoKIyBwbG90IHdpdGggcGxvdGx5IGFuZCBzbyBJIGNhbiBob3ZlciBvdmVyIHBvaW50cyBhbmQgZGV0ZXJtaW5lIHdoaWNoIHRheGEgdGhleSBhcmUKcCA8LSBnZ3Bsb3QoZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlcywgYWVzKHggPSBkZWdyZWUsIHkgPSBiZXR3ZWVubmVzcywgSUQgPSBJRCwgc2hhcGUgPSBgdGF4b25vbXktMWAsIGB0YXhvbm9teS0yYCA9IGB0YXhvbm9teS0yYCwgY29sb3IgPSBgdGF4b25vbXktM2AsIGB0YXhvbm9teS00YCA9IGB0YXhvbm9teS00YCwgYHRheG9ub215LTVgID0gYHRheG9ub215LTVgKSkgKwogIGdlb21fcG9pbnQoc2l6ZSA9IDQpICsKICBzY2FsZV95X2NvbnRpbnVvdXModHJhbnM9J2xvZzEwJykgKwogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBteWNvbG9ycykgKwogIHRoZW1lKGxlZ2VuZC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSkgKwogIHRoZW1lX2J3KCkKcApnZ3Bsb3RseShwLCB0b29sdGlwID0gYygiSUQiLCJ0YXhvbm9teS0yIiwgInRheG9ub215LTMiLCAidGF4b25vbXktNCIsICJ0YXhvbm9teS01IikpCgpgYGAKCk1ha2Ugc3RhdGljIGZpZ3VyZSBmb3IgbWFudXNjcmlwdApgYGB7cn0KCnAyIDwtIGdncGxvdChmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzLCBhZXMoeCA9IGRlZ3JlZSwgeSA9IGJldHdlZW5uZXNzLCBzaGFwZSA9IGB0YXhvbm9teS0xYCwgY29sb3IgPSBgdGF4b25vbXktM2ApKSArCiAgZ2VvbV9wb2ludChzaXplID0gNCkgKwogIHNjYWxlX3lfY29udGludW91cyh0cmFucz0nbG9nMTAnKSArCiAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcyA9IG15Y29sb3JzLCBuYW1lID0gIiIpICsKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygxOSwxNywxNSwxOCksIG5hbWUgPSAiIikgKwogIHRoZW1lKGxlZ2VuZC50aXRsZT1lbGVtZW50X2JsYW5rKCksCiAgICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZT04LCBhbmdsZSA9IDQ1LCBoanVzdCA9IDEpLAogICAgICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBsZWdlbmQudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIHN0cmlwLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDgpLAogICAgICAgIGxlZ2VuZC5tYXJnaW49bWFyZ2luKDAsMCwwLDIpLAogICAgICAgIGxlZ2VuZC5ib3gubWFyZ2luPW1hcmdpbigtMTAsLTEwLC0xMCwtMTApLAogICAgICAgIHBsb3QubWFyZ2luPWdyaWQ6OnVuaXQoYygwLDAsMCwwKSwgIm1tIikpICsKICB0aGVtZV9idygpIApwMgoKZ2dzYXZlKCJmaWd1cmVzL2JldHdlZW5uZXNzX3ZzX2RlZ3JlZS5lcHMiLHAyLCB3aWR0aCA9IDEwLCBoZWlnaHQgPSA2LCB1bml0cyA9IGMoImluIikpCgpgYGAKCgoKICAKIyMjIEhvdyBtYW55IGVkZ2VzIGRvZXMgZWFjaCBncm91cCBoYXZlIGFzIGFuIGFnZ3JlZ2F0ZQpgYGB7cn0KZGVfZGYgPC0gYXMuZGF0YS5mcmFtZShkZSkKZGVfZGYkbmFtZSA8LSByb3duYW1lcyhkZV9kZikKZGVfZGYgPC0gbGVmdF9qb2luKGRlX2RmLCBhbGxfdGVtcCwgYnkgPSAibmFtZSIpCgpkZV9kZiAlPiUKICBncm91cF9ieShgdGF4b25vbXktMWApICU+JQogIHN1bW1hcmlzZShkZWdyZWVzdW0gPSBzdW0oZGUpKSAlPiUKICBhcnJhbmdlKGRlc2MoZGVncmVlc3VtKSkKCmRlX2RmICU+JQogIGdyb3VwX2J5KGB0YXhvbm9teS0yYCkgJT4lCiAgc3VtbWFyaXNlKGRlZ3JlZXN1bSA9IHN1bShkZSkpICU+JQogIGFycmFuZ2UoZGVzYyhkZWdyZWVzdW0pKQoKZGVfZGYgJT4lCiAgZ3JvdXBfYnkoYHRheG9ub215LTNgKSAlPiUKICBzdW1tYXJpc2UoZGVncmVlc3VtID0gc3VtKGRlKSkgJT4lCiAgYXJyYW5nZShkZXNjKGRlZ3JlZXN1bSkpCgpkZV9kZiAlPiUKICBncm91cF9ieShgdGF4b25vbXktNGApICU+JQogIHN1bW1hcmlzZShkZWdyZWVzdW0gPSBzdW0oZGUpKSAlPiUKICBhcnJhbmdlKGRlc2MoZGVncmVlc3VtKSkKCmRlX2RmICU+JQogIGdyb3VwX2J5KGB0YXhvbm9teS01YCkgJT4lCiAgc3VtbWFyaXNlKGRlZ3JlZXN1bSA9IHN1bShkZSkpICU+JQogIGFycmFuZ2UoZGVzYyhkZWdyZWVzdW0pKQoKYGBgCgoKICAKIyMjIFNhdmUgYW5kIHJlLWxvYWQgZW52aXJvbm1lbnQKYGBge3J9CiMgc2F2ZS5pbWFnZSgiRW52aXJvbm1lbnRCYWNrdXBzL0NhcmlhY29FdWtzX3Bvc3RhbmFseXNpc192YXJzX3VwdG9fbm9kZWxldmVsbWVhc3VyZXMuUkRhdGEiKQpgYGAKCk9yIGxvYWQgaWYgY29taW5nIGJhY2sKYGBge3J9CmxvYWQoIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19wb3N0YW5hbHlzaXNfdmFyc191cHRvX25vZGVsZXZlbG1lYXN1cmVzLlJEYXRhIikKYGBgCgoKIyBPY3QtTm92IDIwMjEgUmV2aXNpb25zCkluIHJlc3BvbnNlIHRvIHJldmlld3MsIHJlLXJ1biBzb21lIGFuYWx5c2VzCgpNYWtlIGFsbCBuZXR3b3JrcyBzYW1lIHNpemUgc28gdGhhdCB0aGV5IGFyZSBkaXJlY3RseSBjb21wYXJhYmxlLQoKIyMjIFByZXBhcmUgZm9yIHdob2xlIG5ldHdvcmsgYW5hbHlzaXMKTWFrZSBzdWJzZXRzIHRoYXQgd2lsbCBhbGxvdyBmb3IgY29udHJvbGxpbmcgZm9yIG5ldHdvcmsgc2l6ZSBsYXRlciBvbgotIHRvcCAxMDAgZXVrcywgYmFjLCBhcmNoICh3aGljaCB3aWxsIGJlIGNvbWJpbmVkIGludG8gYSAzMDAtbWVtYmVyIGRhdGFzZXQpCi0gdG9wIDE1MCBiYWMgYW5kIGFyY2ggKHdoaWNoIHdpbGwgYmUgY29tYmluZWQgaW50byBhIDMwMC1tZW1iZXIgZGF0YXNldCBvZiBQcm9rcyBvbmx5KQpgYGB7cn0KIyBSZXRhaW4gdG9wIDEwMCBtb3N0IGFidW5kYW50IGJhY3RlcmlhCmJhY190b3AxMDAgPC0gbmFtZXMoc29ydCh0YXhhX3N1bXMocHNfYmFjX3JhKSwgVFJVRSlbMToxMDBdKQpwc19iYWNfdG9wMTAwIDwtICBwcnVuZV90YXhhKGJhY190b3AxMDAsIHBzX2JhYykKCiMgUmV0YWluIHRvcCAxNTAgbW9zdCBhYnVuZGFudCBiYWN0ZXJpYQpiYWNfdG9wMTUwIDwtIG5hbWVzKHNvcnQodGF4YV9zdW1zKHBzX2JhY19yYSksIFRSVUUpWzE6MTUwXSkKcHNfYmFjX3RvcDE1MCA8LSAgcHJ1bmVfdGF4YShiYWNfdG9wMTUwLCBwc19iYWMpCiMgUmV0YWluIHRvcCAxMDAgbW9zdCBhYnVuZGFudCBhcmNoYWVhCmFyY2hfdG9wMTAwIDwtIG5hbWVzKHNvcnQodGF4YV9zdW1zKHBzX2FyY2hfcmEpLCBUUlVFKVsxOjEwMF0pCnBzX2FyY2hfdG9wMTAwIDwtICBwcnVuZV90YXhhKGFyY2hfdG9wMTAwLCBwc19hcmNoKQoKIyBSZXRhaW4gdG9wIDE1MCBtb3N0IGFidW5kYW50IGFyY2hhZWEKYXJjaF90b3AxNTAgPC0gbmFtZXMoc29ydCh0YXhhX3N1bXMocHNfYXJjaF9yYSksIFRSVUUpWzE6MTUwXSkKcHNfYXJjaF90b3AxNTAgPC0gIHBydW5lX3RheGEoYXJjaF90b3AxNTAsIHBzX2FyY2gpCgojIFJldGFpbiB0b3AgMTAwIG1vc3QgYWJ1bmRhbnQgYXJjaGFlYQpldWtfdG9wMTAwIDwtIG5hbWVzKHNvcnQodGF4YV9zdW1zKHBzX3JhKSwgVFJVRSlbMToxMDBdKQpwc19ldWtfdG9wMTAwIDwtICBwcnVuZV90YXhhKGV1a190b3AxMDAsIHBzKQoKIyBSZXRhaW4gdG9wIDE1MCBtb3N0IGFidW5kYW50IGFyY2hhZWEKZXVrX3RvcDE1MCA8LSBuYW1lcyhzb3J0KHRheGFfc3Vtcyhwc19yYSksIFRSVUUpWzE6MTUwXSkKcHNfZXVrX3RvcDE1MCA8LSAgcHJ1bmVfdGF4YShldWtfdG9wMTUwLCBwcykKYGBgCgpDaGFuZ2UgdGhlIHNhbXBsZSBuYW1lcyBpbiB0aGUgb3R1IHRhYmxlcyB0byBzYW1wbGUgIlR5cGUiCmBgYHtyfQojIEFyY2hhZWEKIyAjIHJlbW92ZSBtaXNzaW5nIGFyY2hhZWEgc2FtcGxlcyBmcm9tIHNhbXBsZWtleV9BCnNhbXBsZWtleV9BIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2FyY2ggICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2FyY2hfdG9wMTAwKSkpCiMgc29ydCBTYW1wbGVLZXkgYnkgb3JkZXIgb2YgY29sdW1uIG5hbWVzIGZyb20gcHNfYXJjaF90b3AxMDAKc2FtcGxla2V5X0EgPC0gc2FtcGxla2V5X0EgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2FyY2gsIGxldmVscyA9IGNvbG5hbWVzKG90dV90YWJsZShwc19hcmNoX3RvcDEwMCkpKSkKCiMgYW5kIGZpbGwgaW4gc2FtcGxlIG5hbWVzIG9mIGZpbHRlcmVkIHBoeWxvc2VxIG9iamVjdHMKc2FtcGxlX25hbWVzKHBzX2FyY2hfdG9wMTAwKSA8LSBzYW1wbGVrZXlfQSRUeXBlCiMgYW5kIHBzX2FyY2hfdG9wMTUwCnNhbXBsZV9uYW1lcyhwc19hcmNoX3RvcDE1MCkgPC0gc2FtcGxla2V5X0EkVHlwZQoKIyBCYWN0ZXJpYQpzYW1wbGVrZXlfQiA8LSBmaWx0ZXIoc2FtcGxla2V5LCBTYW1wbGVJRF9iYWMgICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY190b3AxMDApKSkKc2FtcGxla2V5X0IgPC0gc2FtcGxla2V5X0IgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2JhYywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY190b3AxMDApKSkpCnNhbXBsZV9uYW1lcyhwc19iYWNfdG9wMTAwKSA8LSBzYW1wbGVrZXlfQiRUeXBlCnNhbXBsZV9uYW1lcyhwc19iYWNfdG9wMTUwKSA8LSBzYW1wbGVrZXlfQiRUeXBlCgoKIyBFdWthcnlvdGVzCnNhbXBsZWtleV9FIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2V1ayAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX3RvcDEwMCkpKQpzYW1wbGVrZXlfRSA8LSBzYW1wbGVrZXlfRSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfZXVrLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX3RvcDEwMCkpKSkKc2FtcGxlX25hbWVzKHBzX2V1a190b3AxMDApIDwtIHNhbXBsZWtleV9FJFR5cGUKc2FtcGxlX25hbWVzKHBzX2V1a190b3AxNTApIDwtIHNhbXBsZWtleV9FJFR5cGUKCmBgYAoKIyMjIFByZXBhcmUgZm9yIG94eWNsaW5lLW9ubHkKU2ltaWxhciB0byBhYm92ZSwgcHVsbCBvdXQgdG9wIDEwMCBmcm9tIGVhY2ggZG9tYWluLyByZWRveCByZWdpbWUgaW4gb3JkZXIgdG8gbWFrZSBuZXR3b3JrcyBvZiB0aGUgc2FtZSBzaXplCgpgYGB7cn0KIyBSZXRhaW4gdG9wIDEwMCBtb3N0IGFidW5kYW50IGJhY3RlcmlhCmJhY190b3AxMDBfb3h5Y2xpbmUgPC0gbmFtZXMoc29ydCh0YXhhX3N1bXMocHNfYmFjX3JhX294eWNsaW5lKSwgVFJVRSlbMToxMDBdKQpwc19iYWNfdG9wMTAwX294eWNsaW5lIDwtICBwcnVuZV90YXhhKGJhY190b3AxMDBfb3h5Y2xpbmUsIHBzX2JhY19veHljbGluZSkKCgojIFJldGFpbiB0b3AgMTAwIG1vc3QgYWJ1bmRhbnQgYXJjaGFlYQphcmNoX3RvcDEwMF9veHljbGluZSA8LSBuYW1lcyhzb3J0KHRheGFfc3Vtcyhwc19hcmNoX3JhX294eWNsaW5lKSwgVFJVRSlbMToxMDBdKQpwc19hcmNoX3RvcDEwMF9veHljbGluZSA8LSAgcHJ1bmVfdGF4YShhcmNoX3RvcDEwMF9veHljbGluZSwgcHNfYXJjaF9veHljbGluZSkKCgojIFJldGFpbiB0b3AgMTAwIG1vc3QgYWJ1bmRhbnQgZXVrYXJ5YQpldWtfdG9wMTAwX294eWNsaW5lIDwtIG5hbWVzKHNvcnQodGF4YV9zdW1zKHBzX2V1a19yYV9veHljbGluZSksIFRSVUUpWzE6MTAwXSkKcHNfZXVrX3RvcDEwMF9veHljbGluZSA8LSAgcHJ1bmVfdGF4YShldWtfdG9wMTAwX294eWNsaW5lLCBwc19ldWtfb3h5Y2xpbmUpCgpgYGAKCkNoYW5nZSB0aGUgc2FtcGxlIG5hbWVzIGluIHRoZSBvdHUgdGFibGVzIHRvICJUeXBlIgpgYGB7cn0KIyBBcmNoYWVhCiMgcmVtb3ZlIG1pc3NpbmcgYXJjaGFlYSBzYW1wbGVzIGZyb20gc2FtcGxla2V5X0EKc2FtcGxla2V5X0EgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfYXJjaCAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYXJjaF90b3AxMDBfb3h5Y2xpbmUpKSkKIyBzb3J0IFNhbXBsZUtleSBieSBvcmRlciBvZiBjb2x1bW4gbmFtZXMgZnJvbSBwc19hcmNoX3RvcDEwMF9veHljbGluZQpzYW1wbGVrZXlfQSA8LSBzYW1wbGVrZXlfQSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfYXJjaCwgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2FyY2hfdG9wMTAwX294eWNsaW5lKSkpKQoKc2FtcGxlX25hbWVzKHBzX2FyY2hfdG9wMTAwX294eWNsaW5lKSA8LSBzYW1wbGVrZXlfQSRUeXBlCgoKIyBCYWN0ZXJpYQpzYW1wbGVrZXlfQiA8LSBmaWx0ZXIoc2FtcGxla2V5LCBTYW1wbGVJRF9iYWMgICVpbiUgY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY190b3AxMDBfb3h5Y2xpbmUpKSkKc2FtcGxla2V5X0IgPC0gc2FtcGxla2V5X0IgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2JhYywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY190b3AxMDBfb3h5Y2xpbmUpKSkpCnNhbXBsZV9uYW1lcyhwc19iYWNfdG9wMTAwX294eWNsaW5lKSA8LSBzYW1wbGVrZXlfQiRUeXBlCgoKIyBFdWthcnlvdGVzCnNhbXBsZWtleV9FIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2V1ayAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX3RvcDEwMF9veHljbGluZSkpKQpzYW1wbGVrZXlfRSA8LSBzYW1wbGVrZXlfRSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfZXVrLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX3RvcDEwMF9veHljbGluZSkpKSkKc2FtcGxlX25hbWVzKHBzX2V1a190b3AxMDBfb3h5Y2xpbmUpIDwtIHNhbXBsZWtleV9FJFR5cGUKCmBgYAoKIyMjIFByZXBhcmUgZm9yIGFub3hpYy1vbmx5CgpgYGB7cn0KCiMgUmV0YWluIHRvcCAxMDAgbW9zdCBhYnVuZGFudCBiYWN0ZXJpYQpiYWNfdG9wMTAwX2Fub3hpYyA8LSBuYW1lcyhzb3J0KHRheGFfc3Vtcyhwc19iYWNfcmFfYW5veGljKSwgVFJVRSlbMToxMDBdKQpwc19iYWNfdG9wMTAwX2Fub3hpYyA8LSAgcHJ1bmVfdGF4YShiYWNfdG9wMTAwX2Fub3hpYywgcHNfYmFjX2Fub3hpYykKCiMgUmV0YWluIHRvcCAxMDAgbW9zdCBhYnVuZGFudCBhcmNoYWVhCmFyY2hfdG9wMTAwX2Fub3hpYyA8LSBuYW1lcyhzb3J0KHRheGFfc3Vtcyhwc19hcmNoX3JhX2Fub3hpYyksIFRSVUUpWzE6MTAwXSkKcHNfYXJjaF90b3AxMDBfYW5veGljIDwtICBwcnVuZV90YXhhKGFyY2hfdG9wMTAwX2Fub3hpYywgcHNfYXJjaF9hbm94aWMpCgojIFJldGFpbiB0b3AgMTAwIG1vc3QgYWJ1bmRhbnQgZXVrYXJ5YQpldWtfdG9wMTAwX2Fub3hpYyA8LSBuYW1lcyhzb3J0KHRheGFfc3Vtcyhwc19ldWtfcmFfYW5veGljKSwgVFJVRSlbMToxMDBdKQpwc19ldWtfdG9wMTAwX2Fub3hpYyA8LSAgcHJ1bmVfdGF4YShldWtfdG9wMTAwX2Fub3hpYywgcHNfZXVrX2Fub3hpYykKCmBgYAoKCkNoYW5nZSB0aGUgc2FtcGxlIG5hbWVzIGluIHRoZSBvdHUgdGFibGVzIHRvICJUeXBlIgpgYGB7cn0KIyBBcmNoYWVhCiMgcmVtb3ZlIG1pc3NpbmcgYXJjaGFlYSBzYW1wbGVzIGZyb20gc2FtcGxla2V5X0EKc2FtcGxla2V5X0EgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfYXJjaCAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYXJjaF90b3AxMDBfYW5veGljKSkpCiMgc29ydCBTYW1wbGVLZXkgYnkgb3JkZXIgb2YgY29sdW1uIG5hbWVzIGZyb20gcHNfYXJjaF90b3AxMDBfYW5veGljCnNhbXBsZWtleV9BIDwtIHNhbXBsZWtleV9BICU+JSBhcnJhbmdlKGZhY3RvcihTYW1wbGVJRF9hcmNoLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYXJjaF90b3AxMDBfYW5veGljKSkpKQpzYW1wbGVfbmFtZXMocHNfYXJjaF90b3AxMDBfYW5veGljKSA8LSBzYW1wbGVrZXlfQSRUeXBlCgojIEJhY3RlcmlhCnNhbXBsZWtleV9CIDwtIGZpbHRlcihzYW1wbGVrZXksIFNhbXBsZUlEX2JhYyAgJWluJSBjb2xuYW1lcyhvdHVfdGFibGUocHNfYmFjX3RvcDEwMF9hbm94aWMpKSkKc2FtcGxla2V5X0IgPC0gc2FtcGxla2V5X0IgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2JhYywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY190b3AxMDBfYW5veGljKSkpKQpzYW1wbGVfbmFtZXMocHNfYmFjX3RvcDEwMF9hbm94aWMpIDwtIHNhbXBsZWtleV9CJFR5cGUKCgojIEV1a2FyeW90ZXMKc2FtcGxla2V5X0UgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfZXVrICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19ldWtfdG9wMTAwX2Fub3hpYykpKQpzYW1wbGVrZXlfRSA8LSBzYW1wbGVrZXlfRSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfZXVrLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX3RvcDEwMF9hbm94aWMpKSkpCnNhbXBsZV9uYW1lcyhwc19ldWtfdG9wMTAwX2Fub3hpYykgPC0gc2FtcGxla2V5X0UkVHlwZQoKYGBgCgoKIyMjIFByZXBhcmUgZm9yIGV1eGluaWMtb25seQoKUHVsbCBvdXQgc2FtcGxlcyBmcm9tIGV1eGluaWMgcmVnaW1lCmBgYHtyfQojIFJldGFpbiB0b3AgMTAwIG1vc3QgYWJ1bmRhbnQgYmFjdGVyaWEKYmFjX3RvcDEwMF9ldXhpbmljIDwtIG5hbWVzKHNvcnQodGF4YV9zdW1zKHBzX2JhY19yYV9ldXhpbmljKSwgVFJVRSlbMToxMDBdKQpwc19iYWNfdG9wMTAwX2V1eGluaWMgPC0gIHBydW5lX3RheGEoYmFjX3RvcDEwMF9ldXhpbmljLCBwc19iYWNfZXV4aW5pYykKCgojIFJldGFpbiB0b3AgMTAwIG1vc3QgYWJ1bmRhbnQgYXJjaGFlYQphcmNoX3RvcDEwMF9ldXhpbmljIDwtIG5hbWVzKHNvcnQodGF4YV9zdW1zKHBzX2FyY2hfcmFfZXV4aW5pYyksIFRSVUUpWzE6MTAwXSkKcHNfYXJjaF90b3AxMDBfZXV4aW5pYyA8LSAgcHJ1bmVfdGF4YShhcmNoX3RvcDEwMF9ldXhpbmljLCBwc19hcmNoX2V1eGluaWMpCgoKIyBSZXRhaW4gdG9wIDEwMCBtb3N0IGFidW5kYW50IGFyY2hhZWEKZXVrX3RvcDEwMF9ldXhpbmljIDwtIG5hbWVzKHNvcnQodGF4YV9zdW1zKHBzX2V1a19yYV9ldXhpbmljKSwgVFJVRSlbMToxMDBdKQpwc19ldWtfdG9wMTAwX2V1eGluaWMgPC0gIHBydW5lX3RheGEoZXVrX3RvcDEwMF9ldXhpbmljLCBwc19ldWtfZXV4aW5pYykKCmBgYAoKQ2hhbmdlIHRoZSBzYW1wbGUgbmFtZXMgaW4gdGhlIG90dSB0YWJsZXMgdG8gIlR5cGUiCmBgYHtyfQojIEFyY2hhZWEKIyByZW1vdmUgbWlzc2luZyBhcmNoYWVhIHNhbXBsZXMgZnJvbSBzYW1wbGVrZXlfQQpzYW1wbGVrZXlfQSA8LSBmaWx0ZXIoc2FtcGxla2V5LCBTYW1wbGVJRF9hcmNoICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19hcmNoX3RvcDEwMF9ldXhpbmljKSkpCiMgc29ydCBTYW1wbGVLZXkgYnkgb3JkZXIgb2YgY29sdW1uIG5hbWVzIGZyb20gcHNfYXJjaF90b3AxMDBfZXV4aW5pYwpzYW1wbGVrZXlfQSA8LSBzYW1wbGVrZXlfQSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfYXJjaCwgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2FyY2hfdG9wMTAwX2V1eGluaWMpKSkpCgpzYW1wbGVfbmFtZXMocHNfYXJjaF90b3AxMDBfZXV4aW5pYykgPC0gc2FtcGxla2V5X0EkVHlwZQoKCiMgQmFjdGVyaWEKc2FtcGxla2V5X0IgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfYmFjICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19iYWNfdG9wMTAwX2V1eGluaWMpKSkKc2FtcGxla2V5X0IgPC0gc2FtcGxla2V5X0IgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2JhYywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2JhY190b3AxMDBfZXV4aW5pYykpKSkKCnNhbXBsZV9uYW1lcyhwc19iYWNfdG9wMTAwX2V1eGluaWMpIDwtIHNhbXBsZWtleV9CJFR5cGUKCgojIEV1a2FyeW90ZXMKc2FtcGxla2V5X0UgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfZXVrICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19ldWtfdG9wMTAwX2V1eGluaWMpKSkKc2FtcGxla2V5X0UgPC0gc2FtcGxla2V5X0UgJT4lIGFycmFuZ2UoZmFjdG9yKFNhbXBsZUlEX2V1aywgbGV2ZWxzID0gY29sbmFtZXMob3R1X3RhYmxlKHBzX2V1a190b3AxMDBfZXV4aW5pYykpKSkKCnNhbXBsZV9uYW1lcyhwc19ldWtfdG9wMTAwX2V1eGluaWMpIDwtIHNhbXBsZWtleV9FJFR5cGUKCmBgYAoKCiMjIyBFdWthcnlvdGljIHBhcmFzaXRlLW9ubHkgYW5kIG5vbnBhcmFzaXRlLW9ubHkgbmV0d29ya3MKUmVtb3ZlIGFsbCBrbm93biBwYXJhc2l0ZXMgZnJvbSBldWthcnlvdGljIHRhYmxlIHRoZW4gcHV0IGJhY2sgdG9nZXRoZXIgaW50byB3aG9sZSBkYXRhc2V0CmBgYHtyfQojIEZsYWcgdGhlIHBhcmFzaXRlcyBpbiB0aGUgZXVrYXJ5b3RpYyB0YWJsZSBhY2NvcmRpbmcgdG8ga25vd24gcGFyYXNpdGVzIGlkZW50aWZpZWQgaW4gbGl0ZXJhdHVyZSByZXZpZXc6IFN5bmRpbmlhbGVzLCBPbGlnb2h5bWVub3Bob3JlYSwgTGFieXJpbnRodWxvbXljZXRlcywgY2h5dHJpZHMsIENyeW9tb25hZGlkYTogUHJvdGFzcGEsIEFwaWNvbXBsZXhhIGFuZCBQZXJraW5zaWRhIChhbHZlb2xhdGVzKSAKbm9ucGFyYXNpdGVzIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzKSkgJT4lIAogIGZpbHRlcighZ3JlcGwoJ1N5bmRpbmlhbGVzJywgQ2xhc3MpKSAlPiUgCiAgZmlsdGVyKCFncmVwbCgnT2xpZ29oeW1lbm9waG9yZWEnLCBDbGFzcykpICU+JSAKICBmaWx0ZXIoIWdyZXBsKCdMYWJ5cmludGh1bG9teWNldGVzJywgQ2xhc3MpKSAlPiUgCiAgZmlsdGVyKCFncmVwbCgnQ2h5dHJpZGlvbXljb3RhJywgQ2xhc3MpKSAlPiUgCiAgZmlsdGVyKCFncmVwbCgnUHJvdGFzcGEtbGluZWFnZScsIEZhbWlseSkpICU+JSAKICBmaWx0ZXIoIWdyZXBsKCdBcGljb21wbGV4YScsIERpdmlzaW9uKSkgJT4lIAogIGZpbHRlcighZ3JlcGwoJ1BlcmtpbnNpZGEnLCBDbGFzcykpCm5vbnBhcmFzaXRlcwojIFJlZHVjZWQgZnJvbSAxMyw0Mjcgcm93cyB0byA3LDM0NAoKIyBwYXJhc2l0ZXMgb25seQpwYXJhc2l0ZXMgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHMpKSAlPiUgCiAgZmlsdGVyKCFyb3cubmFtZXMoYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHMpKSkgJWluJSByb3duYW1lcyhub25wYXJhc2l0ZXMpKQpwYXJhc2l0ZXMKIyA2MDgzIHBhcmFzaXRlcwoKIyBNYWtlIG5ldyBwaHlsb3NlcSBvYmplY3RzCnBzX2V1a19ub25wYXJhc2l0ZXMgPC0gIHBydW5lX3RheGEocm93bmFtZXMobm9ucGFyYXNpdGVzKSwgcHMpCnBzX2V1a19wYXJhc2l0ZXMgPC0gIHBydW5lX3RheGEocm93bmFtZXMocGFyYXNpdGVzKSwgcHMpCgojIFJldGFpbiB0b3AgMTAwIGZyb20gZWFjaCBvZiB0aGVzZQpldWtfdG9wMTAwX25vbnBhcmFzaXRlcyA8LSBuYW1lcyhzb3J0KHRheGFfc3Vtcyhwc19ldWtfbm9ucGFyYXNpdGVzKSwgVFJVRSlbMToxMDBdKQpwc19ldWtfbm9ucGFyYXNpdGVzX3RvcDEwMCA8LSAgcHJ1bmVfdGF4YShldWtfdG9wMTAwX25vbnBhcmFzaXRlcywgcHMpCgpldWtfdG9wMTAwX3BhcmFzaXRlcyA8LSBuYW1lcyhzb3J0KHRheGFfc3Vtcyhwc19ldWtfcGFyYXNpdGVzKSwgVFJVRSlbMToxMDBdKQpwc19ldWtfcGFyYXNpdGVzX3RvcDEwMCA8LSAgcHJ1bmVfdGF4YShldWtfdG9wMTAwX3BhcmFzaXRlcywgcHMpCgpgYGAKCkV4cG9ydCB0YWJsZSBvZiBwYXJhc2l0ZSB0YXhvbm9teSBmb3Igc3VwcGxlbWVudGFsIHRhYmxlIGluIG1hbnVzY3JpcHQKYGBge3J9CndyaXRlX2NzdihkaXN0aW5jdChwYXJhc2l0ZXMpLCAiRmlndXJlcy9wYXJhc2l0ZXNfbGlzdC5jc3YiKQpkaXN0aW5jdChwYXJhc2l0ZXMpCiMgSG93IG1hbnkgcGFyYXNpdGVzIG91dCBvZiB0b3RhbCBldWtzPwpkaW0ocGFyYXNpdGVzKVsxXS9kaW0odGF4X3RhYmxlKHBzKSlbMV0KYGBgCgoKQ2hhbmdlIHRoZSBzYW1wbGUgbmFtZXMgaW4gdGhlIG90dSB0YWJsZXMgdG8gc2FtcGxlICJUeXBlIgpgYGB7cn0Kc2FtcGxla2V5X0UgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfZXVrICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19ldWtfbm9ucGFyYXNpdGVzX3RvcDEwMCkpKQpzYW1wbGVrZXlfRSA8LSBzYW1wbGVrZXlfRSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfZXVrLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX25vbnBhcmFzaXRlc190b3AxMDApKSkpCnNhbXBsZV9uYW1lcyhwc19ldWtfbm9ucGFyYXNpdGVzX3RvcDEwMCkgPC0gc2FtcGxla2V5X0UkVHlwZQoKc2FtcGxla2V5X0UgPC0gZmlsdGVyKHNhbXBsZWtleSwgU2FtcGxlSURfZXVrICAlaW4lIGNvbG5hbWVzKG90dV90YWJsZShwc19ldWtfcGFyYXNpdGVzX3RvcDEwMCkpKQpzYW1wbGVrZXlfRSA8LSBzYW1wbGVrZXlfRSAlPiUgYXJyYW5nZShmYWN0b3IoU2FtcGxlSURfZXVrLCBsZXZlbHMgPSBjb2xuYW1lcyhvdHVfdGFibGUocHNfZXVrX3BhcmFzaXRlc190b3AxMDApKSkpCnNhbXBsZV9uYW1lcyhwc19ldWtfcGFyYXNpdGVzX3RvcDEwMCkgPC0gc2FtcGxla2V5X0UkVHlwZQpgYGAKCgoKIyMgUnVuIFNwaWVjRWFzaSAKIyMjIEZ1bGwgZGF0YXNldApVc2luZyB0b3AgMTAwIE9UVXMvQVNWcyBmcm9tIGVhY2ggb2YgdGhlIDMgZG9tYWlucwoKUmVtb3ZlIHNhbXBsZXMgZnJvbSB0aGUgcGh5bG9zZXEgb2JqZWN0cyB0aGF0IGFyZSBub3QgaW4gYWxsIDMgZG9tYWlucyBhbmQgcmVvcmRlciBzYW1wbGVzIHNvIHRoZXkgYXJlIGluIHNhbWUgb3JkZXIgaW4gYWxsIDMgb2JqZWN0cwpgYGB7cn0KYmFjX2FyY2hfY29tbW9uIDwtIGludGVyc2VjdChzYW1wbGVfbmFtZXMocHNfYmFjX3JhX3BydW5lZCksIHNhbXBsZV9uYW1lcyhwc19hcmNoX3JhX3BydW5lZCkpCmFsbF9jb21tb24gPC0gaW50ZXJzZWN0KGJhY19hcmNoX2NvbW1vbiwgc2FtcGxlX25hbWVzKHBzX2V1a19yYV9wcnVuZWQpKQoKcHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDAgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19iYWNfdG9wMTAwKQpwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDAgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19hcmNoX3RvcDEwMCkKcHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDAgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19ldWtfdG9wMTAwKQoKb3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkgPC0gb3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMClbLHNhbXBsZV9uYW1lcyhwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCldCm90dV90YWJsZShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkgPC0gb3R1X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKVssc2FtcGxlX25hbWVzKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKV0KCnNhbXBsZV9kYXRhKHBzX2JhY19wcnVuZWRfM2RvbWFpbnMpCnNhbXBsZV9kYXRhKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zKQpzYW1wbGVfZGF0YShwc19ldWtfcHJ1bmVkXzNkb21haW5zKQpgYGAKCmBgYHtyfQojUnVuIFNwaWVjZWFzaSBvbiAzIGRvbWFpbiBkYXRhc2V0IHdpdGggdG9wIDEwMCBmcm9tIGVhY2ggZG9tYWluCnBhcmdzIDwtIGxpc3Qoc2VlZD0xMDAxMCkKc2VfM2RvbWFpbnNfdG9wMTAwIDwtIHNwaWVjLmVhc2kobGlzdChwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCwgcHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwLCBwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCksIG1ldGhvZD0nZ2xhc3NvJywgbGFtYmRhLm1pbi5yYXRpbz0xZS0yLCBubGFtYmRhPTEwMCwgcHVsc2FyLnBhcmFtcz1wYXJncykKZ2V0U3RhYmlsaXR5KHNlXzNkb21haW5zX3RvcDEwMCkKYGBgCgoKIyMjIDMgRG9tYWlucywgT25seSBub25wYXJhc2l0ZSBldWthcnlvdGVzClJlbW92ZSBzYW1wbGVzIGZyb20gdGhlIHBoeWxvc2VxIG9iamVjdHMgdGhhdCBhcmUgbm90IGluIGFsbCAzIGRhdGFzZXRzLiBSZW9yZGVyIHNhbXBsZXMgc28gdGhleSBhcmUgaW4gc2FtZSBvcmRlciBpbiBhbGwgMyBvYmplY3RzCmBgYHtyfQpiYWNfYXJjaF9jb21tb24gPC0gaW50ZXJzZWN0KHNhbXBsZV9uYW1lcyhwc19iYWNfcmFfcHJ1bmVkKSwgc2FtcGxlX25hbWVzKHBzX2FyY2hfcmFfcHJ1bmVkKSkKYWxsX2NvbW1vbiA8LSBpbnRlcnNlY3QoYmFjX2FyY2hfY29tbW9uLCBzYW1wbGVfbmFtZXMocHNfZXVrX3JhX3BydW5lZCkpCgpwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2JhY190b3AxMDApCnBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2FyY2hfdG9wMTAwKQpwc19ldWtfbm9ucGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDAgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19ldWtfbm9ucGFyYXNpdGVzX3RvcDEwMCkKCm90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApIDwtIG90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApWyxzYW1wbGVfbmFtZXMocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDApXQpvdHVfdGFibGUocHNfZXVrX25vbnBhcmFzaXRlc19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSA8LSBvdHVfdGFibGUocHNfZXVrX25vbnBhcmFzaXRlc19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKVssc2FtcGxlX25hbWVzKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKV0KCnNhbXBsZV9kYXRhKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKQpzYW1wbGVfZGF0YShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApCnNhbXBsZV9kYXRhKHBzX2V1a19ub25wYXJhc2l0ZXNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkKYGBgCgpSdW4KYGBge3J9CiNSdW4gU3BpZWNlYXNpIG9uIDMgZG9tYWluIGRhdGFzZXQgd2l0aCB0b3AgMTAwIGZyb20gZWFjaCBkb21haW4KcGFyZ3MgPC0gbGlzdChzZWVkPTEwMDEwKQpzZV8zZG9tYWluc190b3AxMDBfbm9ucGFyYXNpdGVzIDwtIHNwaWVjLmVhc2kobGlzdChwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCwgcHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwLCBwc19ldWtfbm9ucGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApLCBtZXRob2Q9J2dsYXNzbycsIGxhbWJkYS5taW4ucmF0aW89MWUtMiwgbmxhbWJkYT0xMDAsIHB1bHNhci5wYXJhbXM9cGFyZ3MpCmdldFN0YWJpbGl0eShzZV8zZG9tYWluc190b3AxMDBfbm9ucGFyYXNpdGVzKQpgYGAKCiMjIyAzIERvbWFpbnMsIE9ubHkgcGFyYXNpdGUgZXVrYXJ5b3RlcwpSZW1vdmUgc2FtcGxlcyBmcm9tIHRoZSBwaHlsb3NlcSBvYmplY3RzIHRoYXQgYXJlIG5vdCBpbiBhbGwgMyBkYXRhc2V0cy4gUmVvcmRlciBzYW1wbGVzIHNvIHRoZXkgYXJlIGluIHNhbWUgb3JkZXIgaW4gYWxsIDMgb2JqZWN0cwpgYGB7cn0KYmFjX2FyY2hfY29tbW9uIDwtIGludGVyc2VjdChzYW1wbGVfbmFtZXMocHNfYmFjX3JhX3BydW5lZCksIHNhbXBsZV9uYW1lcyhwc19hcmNoX3JhX3BydW5lZCkpCmFsbF9jb21tb24gPC0gaW50ZXJzZWN0KGJhY19hcmNoX2NvbW1vbiwgc2FtcGxlX25hbWVzKHBzX2V1a19yYV9wcnVuZWQpKQoKcHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDAgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19iYWNfdG9wMTAwKQpwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDAgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19hcmNoX3RvcDEwMCkKcHNfZXVrX3BhcmFzaXRlc19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwIDwtIHBydW5lX3NhbXBsZXMoYWxsX2NvbW1vbiwgcHNfZXVrX3BhcmFzaXRlc190b3AxMDApCgpvdHVfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSA8LSBvdHVfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKVssc2FtcGxlX25hbWVzKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKV0Kb3R1X3RhYmxlKHBzX2V1a19wYXJhc2l0ZXNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkgPC0gb3R1X3RhYmxlKHBzX2V1a19wYXJhc2l0ZXNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMClbLHNhbXBsZV9uYW1lcyhwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCldCgpzYW1wbGVfZGF0YShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkKc2FtcGxlX2RhdGEocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKQpzYW1wbGVfZGF0YShwc19ldWtfcGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApCmBgYAoKUnVuCmBgYHtyfQojUnVuIFNwaWVjZWFzaSBvbiAzIGRvbWFpbiBkYXRhc2V0IHdpdGggdG9wIDEwMCBmcm9tIGVhY2ggZG9tYWluCnBhcmdzIDwtIGxpc3Qoc2VlZD0xMDAxKQpzZV8zZG9tYWluc190b3AxMDBfcGFyYXNpdGVzIDwtIHNwaWVjLmVhc2kobGlzdChwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCwgcHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwLCBwc19ldWtfcGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApLCBtZXRob2Q9J2dsYXNzbycsIGxhbWJkYS5taW4ucmF0aW89MWUtMiwgbmxhbWJkYT0xMDAsIHB1bHNhci5wYXJhbXM9cGFyZ3MpCmdldFN0YWJpbGl0eShzZV8zZG9tYWluc190b3AxMDBfcGFyYXNpdGVzKQpgYGAKCgoKCgojIyMgVHdvLURvbWFpbiBkYXRhc2V0ClBya2FyeW90ZXMgb25seQoxNTAgZnJvbSBlYWNoIGRvbWFpbiwgdG8ga2VlcCBzaXplIG9mIG5ldHdvcmsgY29uc2lzdGVudAoKClJlbW92ZSBzYW1wbGVzIGZyb20gdGhlIHBoeWxvc2VxIG9iamVjdHMgdGhhdCBhcmUgbm90IGluIGJvdGggZG9tYWlucyBhbmQgcmVvcmRlciBzYW1wbGVzIHNvIHRoZXkgYXJlIGluIHNhbWUgb3JkZXIgaW4gYWxsIDMgb2JqZWN0cwpgYGB7cn0KYmFjX2FyY2hfY29tbW9uIDwtIGludGVyc2VjdChzYW1wbGVfbmFtZXMocHNfYmFjX3JhX3BydW5lZCksIHNhbXBsZV9uYW1lcyhwc19hcmNoX3JhX3BydW5lZCkpCgpwc19iYWNfcHJ1bmVkXzJkb21haW5zX3RvcDE1MCA8LSBwcnVuZV9zYW1wbGVzKGJhY19hcmNoX2NvbW1vbiwgcHNfYmFjX3RvcDE1MCkKcHNfYXJjaF9wcnVuZWRfMmRvbWFpbnNfdG9wMTUwIDwtIHBydW5lX3NhbXBsZXMoYmFjX2FyY2hfY29tbW9uLCBwc19hcmNoX3RvcDE1MCkKCm90dV90YWJsZShwc19hcmNoX3BydW5lZF8yZG9tYWluc190b3AxNTApIDwtIG90dV90YWJsZShwc19hcmNoX3BydW5lZF8yZG9tYWluc190b3AxNTApWyxzYW1wbGVfbmFtZXMocHNfYmFjX3BydW5lZF8yZG9tYWluc190b3AxNTApXQoKc2FtcGxlX2RhdGEocHNfYmFjX3BydW5lZF8yZG9tYWluc190b3AxNTApCnNhbXBsZV9kYXRhKHBzX2FyY2hfcHJ1bmVkXzJkb21haW5zX3RvcDE1MCkKCmBgYAoKUnVuCmBgYHtyfQojUnVuIFNwaWVjZWFzaSB3aGlsZSBjb250cm9sbGluZyBmb3IgZGF0YXNldCBzaXplLQojIFVzZSB0aGUgMTUwLW1lbWJlciBzdWJzZXQgb2YgZWFjaCwgYmFjIGFuZCBhcmNoLCBzbyB0aGUgZnVsbCBkYXRhc2V0IGlzIDMwMCBtZW1iZXJzCiMgU2FtZSBzaXplIGFzIGZ1bGwgZGF0YXNldCBuZXR3b3JrCnBhcmdzIDwtIGxpc3Qoc2VlZD0xMDAxMCkKc2VfMmRvbWFpbnNfdG9wMTUwIDwtIHNwaWVjLmVhc2kobGlzdChwc19iYWNfcHJ1bmVkXzJkb21haW5zX3RvcDE1MCwgcHNfYXJjaF9wcnVuZWRfMmRvbWFpbnNfdG9wMTUwKSwgbWV0aG9kPSdnbGFzc28nLCBsYW1iZGEubWluLnJhdGlvPTFlLTIsIG5sYW1iZGE9MjAwLCBwdWxzYXIucGFyYW1zPXBhcmdzKQpnZXRTdGFiaWxpdHkoc2VfMmRvbWFpbnNfdG9wMTUwKQpgYGAKCgojIyMgT3h5Y2xpbmUsIGFsbCAzIGRvbWFpbnMKCmBgYHtyfQpiYWNfYXJjaF9jb21tb24gPC0gaW50ZXJzZWN0KHNhbXBsZV9uYW1lcyhwc19iYWNfb3h5Y2xpbmVfcHJ1bmVkKSwgc2FtcGxlX25hbWVzKHBzX2FyY2hfb3h5Y2xpbmVfcHJ1bmVkKSkKYWxsX2NvbW1vbiA8LSBpbnRlcnNlY3QoYmFjX2FyY2hfY29tbW9uLCBzYW1wbGVfbmFtZXMocHNfZXVrX294eWNsaW5lX3BydW5lZCkpCgpwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2JhY190b3AxMDBfb3h5Y2xpbmUpCnBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2FyY2hfdG9wMTAwX294eWNsaW5lKQpwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2V1a190b3AxMDBfb3h5Y2xpbmUpCgpvdHVfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSA8LSBvdHVfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKVssc2FtcGxlX25hbWVzKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKV0Kb3R1X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSA8LSBvdHVfdGFibGUocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpWyxzYW1wbGVfbmFtZXMocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpXQoKc2FtcGxlX2RhdGEocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpCnNhbXBsZV9kYXRhKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSkKc2FtcGxlX2RhdGEocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpCgpgYGAKClJ1bgpgYGB7cn0KI1J1biBTcGllY2Vhc2kgd2hpbGUgY29udHJvbGxpbmcgZm9yIGRhdGFzZXQgc2l6ZS0KIyBVc2UgdGhlIDEwMC1tZW1iZXIgc3Vic2V0IG9mIGVhY2gsIGJhYywgYXJjaCwgYW5kIGV1ayBmcm9tIHRoZSBveHljbGluZSwgc28gdGhlIGRhdGFzZXQgaXMgMzAwIG1lbWJlcnMKIyBTYW1lIHNpemUgYXMgZnVsbCBkYXRhc2V0IG5ldHdvcmsKcGFyZ3MgPC0gbGlzdChzZWVkPTEwMDEwKQpzZV8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUgPC0gc3BpZWMuZWFzaShsaXN0KHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lLCBwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUsIHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSwgbWV0aG9kPSdnbGFzc28nLCBsYW1iZGEubWluLnJhdGlvPTFlLTIsIG5sYW1iZGE9MjAwLCBwdWxzYXIucGFyYW1zPXBhcmdzKQpnZXRTdGFiaWxpdHkoc2VfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKQpgYGAKCgoKCiMjIyBBbm94aWMsIGFsbCAzIGRvbWFpbnMKCmBgYHtyfQpiYWNfYXJjaF9jb21tb24gPC0gaW50ZXJzZWN0KHNhbXBsZV9uYW1lcyhwc19iYWNfYW5veGljX3BydW5lZCksIHNhbXBsZV9uYW1lcyhwc19hcmNoX2Fub3hpY19wcnVuZWQpKQphbGxfY29tbW9uIDwtIGludGVyc2VjdChiYWNfYXJjaF9jb21tb24sIHNhbXBsZV9uYW1lcyhwc19ldWtfYW5veGljX3BydW5lZCkpCgpwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19iYWNfdG9wMTAwX2Fub3hpYykKcHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYyA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2FyY2hfdG9wMTAwX2Fub3hpYykKcHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljIDwtIHBydW5lX3NhbXBsZXMoYWxsX2NvbW1vbiwgcHNfZXVrX3RvcDEwMF9hbm94aWMpCgpvdHVfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYykgPC0gb3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpWyxzYW1wbGVfbmFtZXMocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKV0Kb3R1X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYykgPC0gb3R1X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYylbLHNhbXBsZV9uYW1lcyhwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpXQoKc2FtcGxlX2RhdGEocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKQpzYW1wbGVfZGF0YShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKQpzYW1wbGVfZGF0YShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpCgpgYGAKCgoKYGBge3J9CiNSdW4gU3BpZWNlYXNpIHdoaWxlIGNvbnRyb2xsaW5nIGZvciBkYXRhc2V0IHNpemUtCiMgVXNlIHRoZSAxMDAtbWVtYmVyIHN1YnNldCBvZiBlYWNoLCBiYWMsIGFyY2gsIGFuZCBldWsgZnJvbSB0aGUgb3h5Y2xpbmUsIHNvIHRoZSBkYXRhc2V0IGlzIDMwMCBtZW1iZXJzCiMgU2FtZSBzaXplIGFzIGZ1bGwgZGF0YXNldCBuZXR3b3JrCnBhcmdzIDwtIGxpc3Qoc2VlZD0xMDAxMCkKc2VfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYyA8LSBzcGllYy5lYXNpKGxpc3QocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljLCBwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljLCBwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpLCBtZXRob2Q9J2dsYXNzbycsIGxhbWJkYS5taW4ucmF0aW89MWUtMiwgbmxhbWJkYT0yNTAsIHB1bHNhci5wYXJhbXM9cGFyZ3MpCmdldFN0YWJpbGl0eShzZV8zZG9tYWluc190b3AxMDBfYW5veGljKQpgYGAKCgojIyMgRXV4aW5pYywgYWxsIDMgZG9tYWlucwoKYGBge3J9CmJhY19hcmNoX2NvbW1vbiA8LSBpbnRlcnNlY3Qoc2FtcGxlX25hbWVzKHBzX2JhY19ldXhpbmljX3BydW5lZCksIHNhbXBsZV9uYW1lcyhwc19hcmNoX2V1eGluaWNfcHJ1bmVkKSkKYWxsX2NvbW1vbiA8LSBpbnRlcnNlY3QoYmFjX2FyY2hfY29tbW9uLCBzYW1wbGVfbmFtZXMocHNfZXVrX2V1eGluaWNfcHJ1bmVkKSkKCnBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2V1eGluaWMgPC0gcHJ1bmVfc2FtcGxlcyhhbGxfY29tbW9uLCBwc19iYWNfdG9wMTAwX2V1eGluaWMpCnBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9ldXhpbmljIDwtIHBydW5lX3NhbXBsZXMoYWxsX2NvbW1vbiwgcHNfYXJjaF90b3AxMDBfZXV4aW5pYykKcHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfZXV4aW5pYyA8LSBwcnVuZV9zYW1wbGVzKGFsbF9jb21tb24sIHBzX2V1a190b3AxMDBfZXV4aW5pYykKCm90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfZXV4aW5pYykgPC0gb3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9ldXhpbmljKVssc2FtcGxlX25hbWVzKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2V1eGluaWMpXQpvdHVfdGFibGUocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfZXV4aW5pYykgPC0gb3R1X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2V1eGluaWMpWyxzYW1wbGVfbmFtZXMocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfZXV4aW5pYyldCgpzYW1wbGVfZGF0YShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9ldXhpbmljKQpzYW1wbGVfZGF0YShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfZXV4aW5pYykKc2FtcGxlX2RhdGEocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfZXV4aW5pYykKYGBgCgpSdW4KYGBge3J9CiNSdW4gU3BpZWNlYXNpIHdoaWxlIGNvbnRyb2xsaW5nIGZvciBkYXRhc2V0IHNpemUtCiMgVXNlIHRoZSAxMDAtbWVtYmVyIHN1YnNldCBvZiBlYWNoLCBiYWMsIGFyY2gsIGFuZCBldWsgZnJvbSB0aGUgb3h5Y2xpbmUsIHNvIHRoZSBkYXRhc2V0IGlzIDMwMCBtZW1iZXJzCiMgU2FtZSBzaXplIGFzIGZ1bGwgZGF0YXNldCBuZXR3b3JrCnBhcmdzIDwtIGxpc3Qoc2VlZD0xMDAxMCkKc2VfM2RvbWFpbnNfdG9wMTAwX2V1eGluaWMgPC0gc3BpZWMuZWFzaShsaXN0KHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2V1eGluaWMsIHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9ldXhpbmljLCBwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9ldXhpbmljKSwgbWV0aG9kPSdnbGFzc28nLCBsYW1iZGEubWluLnJhdGlvPTFlLTEsIG5sYW1iZGE9MTAwLCBwdWxzYXIucGFyYW1zPXBhcmdzKQpnZXRTdGFiaWxpdHkoc2VfM2RvbWFpbnNfdG9wMTAwX2V1eGluaWMpCmBgYAoKLS0+IG5vIG1hdHRlciB0aGUgcGFyYW1ldGVycywgSSBzdGlsbCBjYW4ndCBnZXQgdGhpcyB0byB3b3JrLiBJdCdzIHRvbyBzbWFsbAoKCgojIyMgU2F2ZSBvdXRwdXQgZnJvbSBTcGllY0Vhc2kKTmVlZCB0byBzYXZlIGluIHR3byBwb3J0aW9ucyBiZWNhdXNlIHRoZXkncmUgdG9vIGJpZy0KYGBge3J9CnNhdmUoc2VfM2RvbWFpbnNfdG9wMTAwLCBmaWxlID0gIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19yZXZpc2lvbnMyX2FkZGl0aW9uYWx2YXJzXzEuUkRhdGEiKQpzYXZlKHNlXzJkb21haW5zX3RvcDE1MCwgZmlsZSA9ICJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcmV2aXNpb25zMl9hZGRpdGlvbmFsdmFyc18yLlJEYXRhIikKc2F2ZShzZV8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUsIGZpbGUgPSAiRW52aXJvbm1lbnRCYWNrdXBzL0NhcmlhY29FdWtzX3JldmlzaW9uczJfYWRkaXRpb25hbHZhcnNfMy5SRGF0YSIpCnNhdmUoc2VfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYywgZmlsZSA9ICJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcmV2aXNpb25zMl9hZGRpdGlvbmFsdmFyc180LlJEYXRhIikKc2F2ZShzZV8zZG9tYWluc190b3AxMDBfbm9ucGFyYXNpdGVzLCBmaWxlID0gIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19yZXZpc2lvbnMyX2FkZGl0aW9uYWx2YXJzXzUuUkRhdGEiKQpzYXZlKHNlXzNkb21haW5zX3RvcDEwMF9wYXJhc2l0ZXMsIGZpbGUgPSAiRW52aXJvbm1lbnRCYWNrdXBzL0NhcmlhY29FdWtzX3JldmlzaW9uczJfYWRkaXRpb25hbHZhcnNfNi5SRGF0YSIpCgojIHRoZXNlIGFyZSB2ZXJ5IGxhcmdlLiByZW1vdmUgdGhlbSBhbmQgbG9hZCBvbmUtYnktb25lIHdoaWxlIHdvcmtpbmc6CgojIHJtKHNlXzNkb21haW5zX3RvcDEwMCwgc2VfMmRvbWFpbnNfdG9wMTUwLCBzZV8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUsIHNlXzNkb21haW5zX3RvcDEwMF9hbm94aWMsIHNlXzNkb21haW5zX3RvcDEwMF9ub25wYXJhc2l0ZXMsIHNlXzNkb21haW5zX3RvcDEwMF9wYXJhc2l0ZXMpCmBgYAoKCiMjIEJ1aWxkIG5ldHdvcmsgb2JqZWN0cwojIyMgRnVsbCBkYXRhc2V0CkZpcnN0IGV4dHJhY3QgQVNWIG5hbWVzIGZyb20gb3JpZ2luYWwgcGh5bG9zZXEgb2JqZWN0cyBpbiBvcmRlciB0byByZXRhaW4gZm9yIG5ldHdvcmsgbm9kZXMuIE1ha2Ugc3VyZSB0aGVzZSBhcmUgaW4gc2FtZSBvcmRlciBpbiB3aGljaCB0aGV5IHdlbnQgaW4gU3BpZWNFYXNpCmBgYHtyfQpsb2FkKCJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcmV2aXNpb25zMl9hZGRpdGlvbmFsdmFyc18xLlJEYXRhIikKCnRvcDMwMF9kZiA8LSBiaW5kX3Jvd3MoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYmFjX3RvcDEwMCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19hcmNoX3RvcDEwMCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19ldWtfdG9wMTAwKSkpCnRvcDMwMF9kZgpgYGAKCgpgYGB7cn0KI0V4dHJhY3QgYWRqYWNlbmN5IG1hdHJpeCBmcm9tIHNwaWVjRWFzaSBvdXRwdXQKYWRqLm1hdCA8LSBnZXRSZWZpdChzZV8zZG9tYWluc190b3AxMDApCnRhYmxlKGFzLm51bWVyaWMoYWRqLm1hdCkpCgojIEV4dHJhY3Qgd2VpZ2h0ZWQgYWRqYWNlbmN5CnNlLmNvciAgPC0gY292MmNvcihhcy5tYXRyaXgoZ2V0T3B0Q292KHNlXzNkb21haW5zX3RvcDEwMCkpKQp3ZWlnaHRlZC5hZGoubWF0IDwtIHNlLmNvcipnZXRSZWZpdChzZV8zZG9tYWluc190b3AxMDApCgojQ29udmVydCB0byBncmFwaCBvYmplY3RzCmdycGgudW53ZWlnaHRlZC50b3AzMDAgPC0gYWRqMmlncmFwaChhZGoubWF0KQpncnBoLnRvcDMwMCA8LSBhZGoyaWdyYXBoKHdlaWdodGVkLmFkai5tYXQpCgoKIyBQdXQgYmFjayBpbiBzcGVjaWVzIG5hbWVzClYoZ3JwaC50b3AzMDApJG5hbWUgPC0gcm93bmFtZXModG9wMzAwX2RmKQojIFYoZ3JwaC50b3AzMDApCgojIE1ha2Ugc2l6ZSBvZiBub2RlcyBwcm9wb3J0aW9uYWwgdG8gZGVncmVlIChudW1iZXIgb2YgY29ubmVjdGlvbnMpClYoZ3JwaC50b3AzMDApJHNpemUgPC0gKGRlZ3JlZShncnBoLnRvcDMwMCkgKyAxKSAjIHRoZSArMSBhdm9pZHMgc2l6ZSB6ZXJvIHZlcnRpY2VzCgojIENoYW5nZSB3aWR0aCBvZiBlZGdlcyB0byBiZSBwcm9wb3J0aW9uYWwgdG8gdGhlaXIgd2VpZ2h0cwpFKGdycGgudG9wMzAwKSR3aWR0aCA8LSBhYnMoRShncnBoLnRvcDMwMCkkd2VpZ2h0KSoxMAoKIyBTY2FsZSBub2RlIHNpemVzIHRvIGJlIHNtYWxsZXIKVihncnBoLnRvcDMwMCkkc2l6ZSA8LSBWKGdycGgudG9wMzAwKSRzaXplLzIKCiMgSm9pbiB0YXhvbm9teSBkYXRhIG9mIGVhY2ggbm9kZQojIENvbnZlcnQgZ3JhcGggdG8gZGF0YWZyYW0KZ3JwaC50b3AzMDBfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgudG9wMzAwLCAnYm90aCcpCgojIG1ha2UgZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcyBmb3IgZWFjaCBkb21haW4KYmFjX3RvcDEwMF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDApKSAlPiUKICBtdXRhdGUobmFtZSA9IHJvd25hbWVzKHRheF90YWJsZShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpKQphcmNoX3RvcDEwMF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkpCmV1a190b3AxMDBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDApKSkKCiNsaW5rIGdyYXBoIGRhdGEgZnJhbWUgdG8gZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcwpiYWNfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC50b3AzMDBfZGYkdmVydGljZXNbMTpudGF4YShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCksXSwKYmFjX3RvcDEwMF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQojIGRlbGV0ZSBjb2x1bW5zIHRoYXQgZG9uJ3QgbWF0Y2ggb3RoZXIgdGF4IHRhYmxlcwpiYWNfdGVtcCA8LSBzZWxlY3QoYmFjX3RlbXAsIC0idGF4b25vbXktOSIsIC0iUmVmaW5lZCB0YXhvbm9teSIpCgphcmNoX3RlbXAgPC0gbGVmdF9qb2luKGdycGgudG9wMzAwX2RmJHZlcnRpY2VzW250YXhhKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkrMTpudGF4YShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApLF0sYXJjaF90b3AxMDBfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKCmV1a190ZW1wIDwtIGxlZnRfam9pbihncnBoLnRvcDMwMF9kZiR2ZXJ0aWNlc1tudGF4YShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkrbnRheGEocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDApKzE6bnRheGEocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDApLF0sIGV1a190b3AxMDBfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKCiMgcmVuYW1lIGNvbHVtbiBuYW1lcyBpbiBldWsgdGFibGUgdG8gbWF0Y2ggb3RoZXJzCmV1a190ZW1wIDwtIGV1a190ZW1wICU+JQogICAgcmVuYW1lKCJ0YXhvbm9teS0xIiA9IEtpbmdkb20sICJ0YXhvbm9teS0yIiA9IFN1cGVyZ3JvdXAsICJ0YXhvbm9teS0zIiA9IERpdmlzaW9uLCAidGF4b25vbXktNCIgPSBDbGFzcywgInRheG9ub215LTUiID0gT3JkZXIsICJ0YXhvbm9teS02IiA9IEZhbWlseSwgInRheG9ub215LTciID0gR2VudXMsICJ0YXhvbm9teS04IiA9IFNwZWNpZXMpCgojIGJ1aWxkIGZ1bGwgZGF0YWZyYW1lIHdpdGggYWxsIDMgZG9tYWlucwphbGxfdGVtcCA8LSByYmluZChiYWNfdGVtcCwgYXJjaF90ZW1wLCBldWtfdGVtcCkKCiMgcmVtYWtlIGludG8gZ3JhcGgKZ3JwaC50b3AzMDAgPC0gZ3JhcGhfZnJvbV9kYXRhX2ZyYW1lKGdycGgudG9wMzAwX2RmJGVkZ2VzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRpcmVjdGVkID0gRiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB2ZXJ0aWNlcyA9IGFsbF90ZW1wKQoKIyBNYWtlIGNvbG9yIHBhbGV0dGVyIGZvciBkb21haW4KZHR5cGUgPSBjKCJyZWQiLCAiZ3JlZW4iLCAiYmx1ZSIsICJncmV5IikKIyBNYWtlIGNvbG9yIHZlY3Rvcgpkb21haW5fY29sb3JfdG9wMzAwIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC50b3AzMDApJCJ0YXhvbm9teS0xIikpXQoKCiMgUGxvdApwbG90KGdycGgudG9wMzAwLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDApLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKIyBTYXZlIHBsb3QKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvM2RvbWFpbnNfdG9wMzAwX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgudG9wMzAwLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDApLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKYGBgCgoKCiMjIyMgUG9zaXRpdmUgYW5kIG5lZ2F0aXZlIGVkZ2VzIHNlcGFyYXRlbHkKYGBge3J9CiMgU3Vic2V0IGJhc2VkIG9uIHBvcyBvciBuZWcgZWRnZXMKZ3JwaC50b3AzMDAucG9zIDwtZGVsZXRlLmVkZ2VzKGdycGgudG9wMzAwLCB3aGljaChFKGdycGgudG9wMzAwKSR3ZWlnaHQ8MCkpCmdycGgudG9wMzAwLm5lZyA8LWRlbGV0ZS5lZGdlcyhncnBoLnRvcDMwMCwgd2hpY2goRShncnBoLnRvcDMwMCkkd2VpZ2h0PjApKQoKIyBGb3IgZWFjaCBzdWJzZXR0ZWQgZ3JhcGgsIHJlbW92ZSB0aG9zZSBub2RlcyB0aGF0IGFyZSBubyBsb25nZXIgY29ubmVjdGVkIHRvIGFueXRoaW5nCmdycGgudG9wMzAwLnBvcyA8LSBkZWxldGUudmVydGljZXMoZ3JwaC50b3AzMDAucG9zLCB3aGljaChkZWdyZWUoZ3JwaC50b3AzMDAucG9zKT09MCkpCmdycGgudG9wMzAwLm5lZyA8LSBkZWxldGUudmVydGljZXMoZ3JwaC50b3AzMDAubmVnLCB3aGljaChkZWdyZWUoZ3JwaC50b3AzMDAubmVnKT09MCkpCgojIE1ha2UgY29sb3IgdmVjdG9yIGZvciBlYWNoCmRvbWFpbl9jb2xvcl90b3AzMDBfcG9zIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC50b3AzMDAucG9zKSQidGF4b25vbXktMSIpKV0KZG9tYWluX2NvbG9yX3RvcDMwMF9uZWcgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLnRvcDMwMC5uZWcpJCJ0YXhvbm9teS0xIikpXQoKIyBQbG90IHBvcwpwbG90KGdycGgudG9wMzAwLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQb3NpdGl2ZSBFZGdlcyBvbmx5IikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKIyBQbG90IG5lZwpwbG90KGdycGgudG9wMzAwLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfbmVnKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBOZWdhdGl2ZSBFZGdlcyBPbmx5IikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKCiMgU2F2ZSBwbG90cwpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc190b3AzMDBfcG9zZWRnZXNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC50b3AzMDAucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9wb3MpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIFBvc2l0aXZlIEVkZ2VzIE9ubHksIE94eWNsaW5lIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKCnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzNkb21haW5zX3RvcDMwMF9uZWdlZGdlc19zcGllY2Vhc2lfbmV0d29yay5lcHMiLCB3aWR0aCA9IDUuNSwgaGVpZ2h0ID0gNSkKcGxvdChncnBoLnRvcDMwMC5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5uZWcpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3Jfb3h5Y2xpbmVfbmVnKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBOZWdhdGl2ZSBFZGdlcyBPbmx5IikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKZGV2Lm9mZigpCmBgYAoKCgoKCgoKCiMjIyBUd28gRG9tYWluIGRhdGFzZXQKRmlyc3QgZXh0cmFjdCBBU1YgbmFtZXMgZnJvbSBvcmlnaW5hbCBwaHlsb3NlcSBvYmplY3RzIGluIG9yZGVyIHRvIHJldGFpbiBmb3IgbmV0d29yayBub2Rlcy4gTWFrZSBzdXJlIHRoZXNlIGFyZSBpbiBzYW1lIG9yZGVyIGluIHdoaWNoIHRoZXkgd2VudCBpbiBTcGllY0Vhc2kKYGBge3J9CnJtKHNlXzNkb21haW5zX3RvcDEwMCkKbG9hZCgiRW52aXJvbm1lbnRCYWNrdXBzL0NhcmlhY29FdWtzX3JldmlzaW9uczJfYWRkaXRpb25hbHZhcnNfMi5SRGF0YSIpCgp0b3AzMDBfMmRvbWFpbnNfZGYgPC0gYmluZF9yb3dzKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX2JhY190b3AxNTApKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYXJjaF90b3AxNTApKSkKdG9wMzAwXzJkb21haW5zX2RmCmBgYAoKCmBgYHtyfQojRXh0cmFjdCBhZGphY2VuY3kgbWF0cml4IGZyb20gc3BpZWNFYXNpIG91dHB1dAphZGoubWF0IDwtIGdldFJlZml0KHNlXzJkb21haW5zX3RvcDE1MCkKdGFibGUoYXMubnVtZXJpYyhhZGoubWF0KSkKCiMgRXh0cmFjdCB3ZWlnaHRlZCBhZGphY2VuY3kKc2UuY29yICA8LSBjb3YyY29yKGFzLm1hdHJpeChnZXRPcHRDb3Yoc2VfMmRvbWFpbnNfdG9wMTUwKSkpCndlaWdodGVkLmFkai5tYXQgPC0gc2UuY29yKmdldFJlZml0KHNlXzJkb21haW5zX3RvcDE1MCkKCiNDb252ZXJ0IHRvIGdyYXBoIG9iamVjdHMKZ3JwaC51bndlaWdodGVkLnRvcDMwMCA8LSBhZGoyaWdyYXBoKGFkai5tYXQpCmdycGguMmRvbWFpbnMudG9wMzAwIDwtIGFkajJpZ3JhcGgod2VpZ2h0ZWQuYWRqLm1hdCkKCgojIFB1dCBiYWNrIGluIHNwZWNpZXMgbmFtZXMKVihncnBoLjJkb21haW5zLnRvcDMwMCkkbmFtZSA8LSByb3duYW1lcyh0b3AzMDBfMmRvbWFpbnNfZGYpCgojIE1ha2Ugc2l6ZSBvZiBub2RlcyBwcm9wb3J0aW9uYWwgdG8gZGVncmVlIChudW1iZXIgb2YgY29ubmVjdGlvbnMpClYoZ3JwaC4yZG9tYWlucy50b3AzMDApJHNpemUgPC0gKGRlZ3JlZShncnBoLjJkb21haW5zLnRvcDMwMCkgKyAxKSAjIHRoZSArMSBhdm9pZHMgc2l6ZSB6ZXJvIHZlcnRpY2VzCgojIENoYW5nZSB3aWR0aCBvZiBlZGdlcyB0byBiZSBwcm9wb3J0aW9uYWwgdG8gdGhlaXIgd2VpZ2h0cwpFKGdycGguMmRvbWFpbnMudG9wMzAwKSR3aWR0aCA8LSBhYnMoRShncnBoLjJkb21haW5zLnRvcDMwMCkkd2VpZ2h0KSoxMAoKIyBTY2FsZSBub2RlIHNpemVzIHRvIGJlIHNtYWxsZXIKVihncnBoLjJkb21haW5zLnRvcDMwMCkkc2l6ZSA8LSBWKGdycGguMmRvbWFpbnMudG9wMzAwKSRzaXplLzIKCiMgSm9pbiB0YXhvbm9teSBkYXRhIG9mIGVhY2ggbm9kZQojIENvbnZlcnQgZ3JhcGggdG8gZGF0YWZyYW0KdG9wMzAwXzJkb21haW5zX2RmIDwtIGlncmFwaDo6YXNfZGF0YV9mcmFtZShncnBoLjJkb21haW5zLnRvcDMwMCwgJ2JvdGgnKQoKIyBtYWtlIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZXMgZm9yIGVhY2ggZG9tYWluCmJhY190b3AxNTBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2JhY19wcnVuZWRfMmRvbWFpbnNfdG9wMTUwKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8yZG9tYWluc190b3AxNTApKSkKYXJjaF90b3AxNTBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzJkb21haW5zX3RvcDE1MCkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzJkb21haW5zX3RvcDE1MCkpKQoKI2xpbmsgZ3JhcGggZGF0YSBmcmFtZSB0byBmb3JtYXR0ZWQgdGF4b25vbXkgdGFibGVzCmJhY190ZW1wIDwtIGxlZnRfam9pbih0b3AzMDBfMmRvbWFpbnNfZGYkdmVydGljZXNbMTpudGF4YShwc19iYWNfcHJ1bmVkXzJkb21haW5zX3RvcDE1MCksXSwgYmFjX3RvcDE1MF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQojIGRlbGV0ZSBjb2x1bW5zIHRoYXQgZG9uJ3QgbWF0Y2ggb3RoZXIgdGF4IHRhYmxlcwpiYWNfdGVtcCA8LSBzZWxlY3QoYmFjX3RlbXAsIC0idGF4b25vbXktOSIsIC0iUmVmaW5lZCB0YXhvbm9teSIpCgphcmNoX3RlbXAgPC0gbGVmdF9qb2luKHRvcDMwMF8yZG9tYWluc19kZiR2ZXJ0aWNlc1tudGF4YShwc19hcmNoX3BydW5lZF8yZG9tYWluc190b3AxNTApKzE6bnRheGEocHNfYXJjaF9wcnVuZWRfMmRvbWFpbnNfdG9wMTUwKSxdLGFyY2hfdG9wMTUwX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCgojIGJ1aWxkIGZ1bGwgZGF0YWZyYW1lIHdpdGggYWxsIDMgZG9tYWlucwphbGxfdGVtcCA8LSByYmluZChiYWNfdGVtcCwgYXJjaF90ZW1wKQoKIyByZW1ha2UgaW50byBncmFwaApncnBoLjJkb21haW5zLnRvcDMwMCA8LSBncmFwaF9mcm9tX2RhdGFfZnJhbWUodG9wMzAwXzJkb21haW5zX2RmJGVkZ2VzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRpcmVjdGVkID0gRiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB2ZXJ0aWNlcyA9IGFsbF90ZW1wKQoKIyBNYWtlIGNvbG9yIHBhbGV0dGVyIGZvciBkb21haW4KZHR5cGUgPSBjKCJyZWQiLCAiZ3JlZW4iLCAiZ3JleSIpCiMgTWFrZSBjb2xvciB2ZWN0b3IKZG9tYWluX2NvbG9yXzJkb21haW5zX3RvcDMwMCA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGguMmRvbWFpbnMudG9wMzAwKSQidGF4b25vbXktMSIpKV0KCgojIFBsb3QKcGxvdChncnBoLjJkb21haW5zLnRvcDMwMCwKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGguMmRvbWFpbnMudG9wMzAwKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yXzJkb21haW5zX3RvcDMwMCkKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBUd28gZG9tYWlucyIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIk5vIEJsYXN0IEhpdCIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImdyZXkiKSwgYm9yZGVyPU5BKQoKIyBTYXZlIHBsb3QKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvMmRvbWFpbnNfdG9wMzAwX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGguMmRvbWFpbnMudG9wMzAwLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC4yZG9tYWlucy50b3AzMDApLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfMmRvbWFpbnNfdG9wMzAwKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IFR3byBkb21haW5zIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiZ3JleSIpLCBib3JkZXI9TkEpCmRldi5vZmYoKQpgYGAKCgoKIyMjIyBQb3NpdGl2ZSBhbmQgbmVnYXRpdmUgZWRnZXMgc2VwYXJhdGVseQpgYGB7cn0KIyBTdWJzZXQgYmFzZWQgb24gcG9zIG9yIG5lZyBlZGdlcwpncnBoLnRvcDMwMC4yZG9tYWlucy5wb3MgPC1kZWxldGUuZWRnZXMoZ3JwaC4yZG9tYWlucy50b3AzMDAsIHdoaWNoKEUoZ3JwaC4yZG9tYWlucy50b3AzMDApJHdlaWdodDwwKSkKZ3JwaC50b3AzMDAuMmRvbWFpbnMubmVnIDwtZGVsZXRlLmVkZ2VzKGdycGguMmRvbWFpbnMudG9wMzAwLCB3aGljaChFKGdycGguMmRvbWFpbnMudG9wMzAwKSR3ZWlnaHQ+MCkpCgojIEZvciBlYWNoIHN1YnNldHRlZCBncmFwaCwgcmVtb3ZlIHRob3NlIG5vZGVzIHRoYXQgYXJlIG5vIGxvbmdlciBjb25uZWN0ZWQgdG8gYW55dGhpbmcKZ3JwaC50b3AzMDAuMmRvbWFpbnMucG9zIDwtIGRlbGV0ZS52ZXJ0aWNlcyhncnBoLnRvcDMwMC4yZG9tYWlucy5wb3MsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC4yZG9tYWlucy5wb3MpPT0wKSkKZ3JwaC50b3AzMDAuMmRvbWFpbnMubmVnIDwtIGRlbGV0ZS52ZXJ0aWNlcyhncnBoLnRvcDMwMC4yZG9tYWlucy5uZWcsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC4yZG9tYWlucy5uZWcpPT0wKSkKCiMgTWFrZSBjb2xvciB2ZWN0b3IgZm9yIGVhY2gKZHR5cGUgPC0gYygicmVkIiwgImdyZWVuIiwgImdyZXkiICkgIyB0ZW1wb3JhcmlseSBjaGFuZ2UgZm9yIHRoaXMgcGxvdApkb21haW5fY29sb3JfMmRvbWFpbnNfdG9wMzAwX3BvcyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgudG9wMzAwLjJkb21haW5zLnBvcykkInRheG9ub215LTEiKSldCmRvbWFpbl9jb2xvcl8yZG9tYWluc190b3AzMDBfbmVnIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC50b3AzMDAuMmRvbWFpbnMubmVnKSQidGF4b25vbXktMSIpKV0KZHR5cGUgPC0gYygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAiZ3JleSIgKSAjIGNoYW5nZSBiYWNrCgojIFBsb3QgcG9zCnBsb3QoZ3JwaC50b3AzMDAuMmRvbWFpbnMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAuMmRvbWFpbnMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yXzJkb21haW5zX3RvcDMwMF9wb3MpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogVHdvIGRvbWFpbnMsIFBvc2l0aXZlIEVkZ2VzIG9ubHkiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJncmV5IiksIGJvcmRlcj1OQSkKCiMgUGxvdCBuZWcKcGxvdChncnBoLnRvcDMwMC4yZG9tYWlucy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC4yZG9tYWlucy5uZWcpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfMmRvbWFpbnNfdG9wMzAwX25lZykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBUd28gZG9tYWlucywgTmVnYXRpdmUgRWRnZXMgT25seSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIk5vIEJsYXN0IEhpdCIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImdyZXkiKSwgYm9yZGVyPU5BKQoKCiMgU2F2ZSBwbG90cwpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8yZG9tYWluc190b3AzMDBfcG9zZWRnZXNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC50b3AzMDAuMmRvbWFpbnMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAuMmRvbWFpbnMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yXzJkb21haW5zX3RvcDMwMF9wb3MpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogVHdvIGRvbWFpbnMsIFBvc2l0aXZlIEVkZ2VzIE9ubHksIE94eWNsaW5lIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiZ3JleSIpLCBib3JkZXI9TkEpCmRldi5vZmYoKQoKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvMmRvbWFpbnNfdG9wMzAwX25lZ2VkZ2VzX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgudG9wMzAwLjJkb21haW5zLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLjJkb21haW5zLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWluc190b3AzMDBfbmVnKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IFR3byBkb21haW5zLCBOZWdhdGl2ZSBFZGdlcyBPbmx5IikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiZ3JleSIpLCBib3JkZXI9TkEpCgpkZXYub2ZmKCkKYGBgCgoKCiMjIyBPeHljbGluZSBkYXRhc2V0CkZpcnN0IGV4dHJhY3QgQVNWIG5hbWVzIGZyb20gb3JpZ2luYWwgcGh5bG9zZXEgb2JqZWN0cyBpbiBvcmRlciB0byByZXRhaW4gZm9yIG5ldHdvcmsgbm9kZXMuIE1ha2Ugc3VyZSB0aGVzZSBhcmUgaW4gc2FtZSBvcmRlciBpbiB3aGljaCB0aGV5IHdlbnQgaW4gU3BpZWNFYXNpCmBgYHtyfQpybShzZV8yZG9tYWluc190b3AxNTApCmxvYWQoIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19yZXZpc2lvbnMyX2FkZGl0aW9uYWx2YXJzXzMuUkRhdGEiKQoKdG9wMzAwX294eWNsaW5lX2RmIDwtIGJpbmRfcm93cyhkYXRhLmZyYW1lKG90dV90YWJsZShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpKSkKdG9wMzAwX294eWNsaW5lX2RmCmBgYAoKCmBgYHtyfQojRXh0cmFjdCBhZGphY2VuY3kgbWF0cml4IGZyb20gc3BpZWNFYXNpIG91dHB1dAphZGoubWF0IDwtIGdldFJlZml0KHNlXzNkb21haW5zX3RvcDEwMF9veHljbGluZSkKdGFibGUoYXMubnVtZXJpYyhhZGoubWF0KSkKCiMgRXh0cmFjdCB3ZWlnaHRlZCBhZGphY2VuY3kKc2UuY29yICA8LSBjb3YyY29yKGFzLm1hdHJpeChnZXRPcHRDb3Yoc2VfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSkpCndlaWdodGVkLmFkai5tYXQgPC0gc2UuY29yKmdldFJlZml0KHNlXzNkb21haW5zX3RvcDEwMF9veHljbGluZSkKCiNDb252ZXJ0IHRvIGdyYXBoIG9iamVjdHMKZ3JwaC51bndlaWdodGVkLnRvcDMwMC5veHljbGluZSA8LSBhZGoyaWdyYXBoKGFkai5tYXQpCmdycGgudG9wMzAwLm94eWNsaW5lIDwtIGFkajJpZ3JhcGgod2VpZ2h0ZWQuYWRqLm1hdCkKCgojIFB1dCBiYWNrIGluIHNwZWNpZXMgbmFtZXMKVihncnBoLnRvcDMwMC5veHljbGluZSkkbmFtZSA8LSByb3duYW1lcyh0b3AzMDBfb3h5Y2xpbmVfZGYpCgoKIyBNYWtlIHNpemUgb2Ygbm9kZXMgcHJvcG9ydGlvbmFsIHRvIGRlZ3JlZSAobnVtYmVyIG9mIGNvbm5lY3Rpb25zKQpWKGdycGgudG9wMzAwLm94eWNsaW5lKSRzaXplIDwtIChkZWdyZWUoZ3JwaC50b3AzMDAub3h5Y2xpbmUpICsgMSkgIyB0aGUgKzEgYXZvaWRzIHNpemUgemVybyB2ZXJ0aWNlcwoKIyBDaGFuZ2Ugd2lkdGggb2YgZWRnZXMgdG8gYmUgcHJvcG9ydGlvbmFsIHRvIHRoZWlyIHdlaWdodHMKRShncnBoLnRvcDMwMC5veHljbGluZSkkd2lkdGggPC0gYWJzKEUoZ3JwaC50b3AzMDAub3h5Y2xpbmUpJHdlaWdodCkqMTAKCiMgU2NhbGUgbm9kZSBzaXplcyB0byBiZSBzbWFsbGVyClYoZ3JwaC50b3AzMDAub3h5Y2xpbmUpJHNpemUgPC0gVihncnBoLnRvcDMwMC5veHljbGluZSkkc2l6ZS8yCgojIEpvaW4gdGF4b25vbXkgZGF0YSBvZiBlYWNoIG5vZGUKIyBDb252ZXJ0IGdyYXBoIHRvIGRhdGFmcmFtCmdycGgudG9wMzAwX294eWNsaW5lX2RmIDwtIGlncmFwaDo6YXNfZGF0YV9mcmFtZShncnBoLnRvcDMwMC5veHljbGluZSwgJ2JvdGgnKQoKIyBtYWtlIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZXMgZm9yIGVhY2ggZG9tYWluCmJhY190b3AxMDBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpKSkKYXJjaF90b3AxMDBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSkpKQpldWtfdG9wMTAwX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9veHljbGluZSkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSkpCgojbGluayBncmFwaCBkYXRhIGZyYW1lIHRvIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZXMKYmFjX3RlbXAgPC0gbGVmdF9qb2luKGdycGgudG9wMzAwX294eWNsaW5lX2RmJHZlcnRpY2VzWzE6bnRheGEocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpLF0sCmJhY190b3AxMDBfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKIyBkZWxldGUgY29sdW1ucyB0aGF0IGRvbid0IG1hdGNoIG90aGVyIHRheCB0YWJsZXMKYmFjX3RlbXAgPC0gc2VsZWN0KGJhY190ZW1wLCAtInRheG9ub215LTkiLCAtIlJlZmluZWQgdGF4b25vbXkiKQoKYXJjaF90ZW1wIDwtIGxlZnRfam9pbihncnBoLnRvcDMwMF9veHljbGluZV9kZiR2ZXJ0aWNlc1tudGF4YShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpKzE6bnRheGEocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSxdLGFyY2hfdG9wMTAwX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCgpldWtfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC50b3AzMDBfb3h5Y2xpbmVfZGYkdmVydGljZXNbbnRheGEocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpK250YXhhKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSsxOm50YXhhKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX294eWNsaW5lKSxdLCBldWtfdG9wMTAwX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCgojIHJlbmFtZSBjb2x1bW4gbmFtZXMgaW4gZXVrIHRhYmxlIHRvIG1hdGNoIG90aGVycwpldWtfdGVtcCA8LSBldWtfdGVtcCAlPiUKICAgIHJlbmFtZSgidGF4b25vbXktMSIgPSBLaW5nZG9tLCAidGF4b25vbXktMiIgPSBTdXBlcmdyb3VwLCAidGF4b25vbXktMyIgPSBEaXZpc2lvbiwgInRheG9ub215LTQiID0gQ2xhc3MsICJ0YXhvbm9teS01IiA9IE9yZGVyLCAidGF4b25vbXktNiIgPSBGYW1pbHksICJ0YXhvbm9teS03IiA9IEdlbnVzLCAidGF4b25vbXktOCIgPSBTcGVjaWVzKQoKIyBidWlsZCBmdWxsIGRhdGFmcmFtZSB3aXRoIGFsbCAzIGRvbWFpbnMKYWxsX3RlbXAgPC0gcmJpbmQoYmFjX3RlbXAsIGFyY2hfdGVtcCwgZXVrX3RlbXApCgojIHJlbWFrZSBpbnRvIGdyYXBoCmdycGgudG9wMzAwLm94eWNsaW5lIDwtIGdyYXBoX2Zyb21fZGF0YV9mcmFtZShncnBoLnRvcDMwMF9veHljbGluZV9kZiRlZGdlcywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkaXJlY3RlZCA9IEYsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdmVydGljZXMgPSBhbGxfdGVtcCkKCiMgTWFrZSBjb2xvciBwYWxldHRlciBmb3IgZG9tYWluCmR0eXBlID0gYygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAiZ3JleSIpCiMgTWFrZSBjb2xvciB2ZWN0b3IKZG9tYWluX2NvbG9yX3RvcDMwMF9veHljbGluZSA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgudG9wMzAwLm94eWNsaW5lKSQidGF4b25vbXktMSIpKV0KCgojIFBsb3QKcGxvdChncnBoLnRvcDMwMC5veHljbGluZSwKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm94eWNsaW5lKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9veHljbGluZSkKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgT3h5Y2xpbmUiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJFdWthcnlhIiwgIk5vIEJsYXN0IEhpdCIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImJsdWUiLCAiZ3JleSIpLCBib3JkZXI9TkEpCgojIFNhdmUgcGxvdApzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc190b3AzMDBfb3h5Y2xpbmVfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC50b3AzMDAub3h5Y2xpbmUsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5veHljbGluZSksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfb3h5Y2xpbmUpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIE94eWNsaW5lIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKYGBgCgoKIyMjIyBQb3NpdGl2ZSBhbmQgbmVnYXRpdmUgZWRnZXMgc2VwYXJhdGVseQpgYGB7cn0KIyBTdWJzZXQgYmFzZWQgb24gcG9zIG9yIG5lZyBlZGdlcwpncnBoLnRvcDMwMC5veHljbGluZS5wb3MgPC1kZWxldGUuZWRnZXMoZ3JwaC50b3AzMDAub3h5Y2xpbmUsIHdoaWNoKEUoZ3JwaC50b3AzMDAub3h5Y2xpbmUpJHdlaWdodDwwKSkKZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnIDwtZGVsZXRlLmVkZ2VzKGdycGgudG9wMzAwLm94eWNsaW5lLCB3aGljaChFKGdycGgudG9wMzAwLm94eWNsaW5lKSR3ZWlnaHQ+MCkpCgojIEZvciBlYWNoIHN1YnNldHRlZCBncmFwaCwgcmVtb3ZlIHRob3NlIG5vZGVzIHRoYXQgYXJlIG5vIGxvbmdlciBjb25uZWN0ZWQgdG8gYW55dGhpbmcKZ3JwaC50b3AzMDAub3h5Y2xpbmUucG9zIDwtIGRlbGV0ZS52ZXJ0aWNlcyhncnBoLnRvcDMwMC5veHljbGluZS5wb3MsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5veHljbGluZS5wb3MpPT0wKSkKZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnIDwtIGRlbGV0ZS52ZXJ0aWNlcyhncnBoLnRvcDMwMC5veHljbGluZS5uZWcsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5veHljbGluZS5uZWcpPT0wKSkKCiMgTWFrZSBjb2xvciB2ZWN0b3IgZm9yIGVhY2gKZG9tYWluX2NvbG9yX3RvcDMwMF9veHljbGluZV9wb3MgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLnRvcDMwMC5veHljbGluZS5wb3MpJCJ0YXhvbm9teS0xIikpXQpkb21haW5fY29sb3JfdG9wMzAwX294eWNsaW5lX25lZyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgudG9wMzAwLm94eWNsaW5lLm5lZykkInRheG9ub215LTEiKSldCgojIFBsb3QgcG9zCnBsb3QoZ3JwaC50b3AzMDAub3h5Y2xpbmUucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAub3h5Y2xpbmUucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9veHljbGluZV9wb3MpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIFBvc2l0aXZlIEVkZ2VzIG9ubHksIG94eWNsaW5lIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKIyBQbG90IG5lZwpwbG90KGdycGgudG9wMzAwLm94eWNsaW5lLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm94eWNsaW5lLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfb3h5Y2xpbmVfbmVnKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBOZWdhdGl2ZSBFZGdlcyBPbmx5LCBveHljbGluZSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIsICJncmV5IiksIGJvcmRlcj1OQSkKCgojIFNhdmUgcGxvdHMKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvM2RvbWFpbnNfdG9wMzAwX3Bvc2VkZ2VzX294eWNsaW5lX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgudG9wMzAwLm94eWNsaW5lLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm94eWNsaW5lLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfb3h5Y2xpbmVfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQb3NpdGl2ZSBFZGdlcyBPbmx5LCBveHljbGluZSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIsICJncmV5IiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCgpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc190b3AzMDBfbmVnZWRnZXNfb3h5Y2xpbmVfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9veHljbGluZV9uZWcpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIE5lZ2F0aXZlIEVkZ2VzIE9ubHksIG94eWNsaW5lIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKZGV2Lm9mZigpCmBgYAoKCgoKIyMjIEFub3hpYyBkYXRhc2V0CkZpcnN0IGV4dHJhY3QgQVNWIG5hbWVzIGZyb20gb3JpZ2luYWwgcGh5bG9zZXEgb2JqZWN0cyBpbiBvcmRlciB0byByZXRhaW4gZm9yIG5ldHdvcmsgbm9kZXMuIE1ha2Ugc3VyZSB0aGVzZSBhcmUgaW4gc2FtZSBvcmRlciBpbiB3aGljaCB0aGV5IHdlbnQgaW4gU3BpZWNFYXNpCmBgYHtyfQpybShzZV8zZG9tYWluc190b3AxMDBfb3h5Y2xpbmUpCmxvYWQoIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19yZXZpc2lvbnMyX2FkZGl0aW9uYWx2YXJzXzQuUkRhdGEiKQoKdG9wMzAwX2Fub3hpY19kZiA8LSBiaW5kX3Jvd3MoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKSksIGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKSkpCnRvcDMwMF9hbm94aWNfZGYKYGBgCgoKYGBge3J9CiNFeHRyYWN0IGFkamFjZW5jeSBtYXRyaXggZnJvbSBzcGllY0Vhc2kgb3V0cHV0CmFkai5tYXQgPC0gZ2V0UmVmaXQoc2VfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYykKdGFibGUoYXMubnVtZXJpYyhhZGoubWF0KSkKCiMgRXh0cmFjdCB3ZWlnaHRlZCBhZGphY2VuY3kKc2UuY29yICA8LSBjb3YyY29yKGFzLm1hdHJpeChnZXRPcHRDb3Yoc2VfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYykpKQp3ZWlnaHRlZC5hZGoubWF0IDwtIHNlLmNvcipnZXRSZWZpdChzZV8zZG9tYWluc190b3AxMDBfYW5veGljKQoKI0NvbnZlcnQgdG8gZ3JhcGggb2JqZWN0cwpncnBoLnVud2VpZ2h0ZWQudG9wMzAwLmFub3hpYyA8LSBhZGoyaWdyYXBoKGFkai5tYXQpCmdycGgudG9wMzAwLmFub3hpYyA8LSBhZGoyaWdyYXBoKHdlaWdodGVkLmFkai5tYXQpCgoKIyBQdXQgYmFjayBpbiBzcGVjaWVzIG5hbWVzClYoZ3JwaC50b3AzMDAuYW5veGljKSRuYW1lIDwtIHJvd25hbWVzKHRvcDMwMF9hbm94aWNfZGYpCgoKIyBNYWtlIHNpemUgb2Ygbm9kZXMgcHJvcG9ydGlvbmFsIHRvIGRlZ3JlZSAobnVtYmVyIG9mIGNvbm5lY3Rpb25zKQpWKGdycGgudG9wMzAwLmFub3hpYykkc2l6ZSA8LSAoZGVncmVlKGdycGgudG9wMzAwLmFub3hpYykgKyAxKSAjIHRoZSArMSBhdm9pZHMgc2l6ZSB6ZXJvIHZlcnRpY2VzCgojIENoYW5nZSB3aWR0aCBvZiBlZGdlcyB0byBiZSBwcm9wb3J0aW9uYWwgdG8gdGhlaXIgd2VpZ2h0cwpFKGdycGgudG9wMzAwLmFub3hpYykkd2lkdGggPC0gYWJzKEUoZ3JwaC50b3AzMDAuYW5veGljKSR3ZWlnaHQpKjEwCgojIFNjYWxlIG5vZGUgc2l6ZXMgdG8gYmUgc21hbGxlcgpWKGdycGgudG9wMzAwLmFub3hpYykkc2l6ZSA8LSBWKGdycGgudG9wMzAwLmFub3hpYykkc2l6ZS8yCgojIEpvaW4gdGF4b25vbXkgZGF0YSBvZiBlYWNoIG5vZGUKIyBDb252ZXJ0IGdyYXBoIHRvIGRhdGFmcmFtCmdycGgudG9wMzAwX2Fub3hpY19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC50b3AzMDAuYW5veGljLCAnYm90aCcpCgojIG1ha2UgZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcyBmb3IgZWFjaCBkb21haW4KYmFjX3RvcDEwMF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKSkpCmFyY2hfdG9wMTAwX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYykpKQpldWtfdG9wMTAwX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpKSAlPiUKICBtdXRhdGUobmFtZSA9IHJvd25hbWVzKHRheF90YWJsZShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpKSkKCiNsaW5rIGdyYXBoIGRhdGEgZnJhbWUgdG8gZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcwpiYWNfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC50b3AzMDBfYW5veGljX2RmJHZlcnRpY2VzWzE6bnRheGEocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDBfYW5veGljKSxdLApiYWNfdG9wMTAwX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCiMgZGVsZXRlIGNvbHVtbnMgdGhhdCBkb24ndCBtYXRjaCBvdGhlciB0YXggdGFibGVzCmJhY190ZW1wIDwtIHNlbGVjdChiYWNfdGVtcCwgLSJ0YXhvbm9teS05IiwgLSJSZWZpbmVkIHRheG9ub215IikKCmFyY2hfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC50b3AzMDBfYW5veGljX2RmJHZlcnRpY2VzW250YXhhKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpKzE6bnRheGEocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYyksXSxhcmNoX3RvcDEwMF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQoKZXVrX3RlbXAgPC0gbGVmdF9qb2luKGdycGgudG9wMzAwX2Fub3hpY19kZiR2ZXJ0aWNlc1tudGF4YShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpK250YXhhKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwX2Fub3hpYykrMTpudGF4YShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMF9hbm94aWMpLF0sIGV1a190b3AxMDBfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKCiMgcmVuYW1lIGNvbHVtbiBuYW1lcyBpbiBldWsgdGFibGUgdG8gbWF0Y2ggb3RoZXJzCmV1a190ZW1wIDwtIGV1a190ZW1wICU+JQogICAgcmVuYW1lKCJ0YXhvbm9teS0xIiA9IEtpbmdkb20sICJ0YXhvbm9teS0yIiA9IFN1cGVyZ3JvdXAsICJ0YXhvbm9teS0zIiA9IERpdmlzaW9uLCAidGF4b25vbXktNCIgPSBDbGFzcywgInRheG9ub215LTUiID0gT3JkZXIsICJ0YXhvbm9teS02IiA9IEZhbWlseSwgInRheG9ub215LTciID0gR2VudXMsICJ0YXhvbm9teS04IiA9IFNwZWNpZXMpCgojIGJ1aWxkIGZ1bGwgZGF0YWZyYW1lIHdpdGggYWxsIDMgZG9tYWlucwphbGxfdGVtcCA8LSByYmluZChiYWNfdGVtcCwgYXJjaF90ZW1wLCBldWtfdGVtcCkKCiMgcmVtYWtlIGludG8gZ3JhcGgKZ3JwaC50b3AzMDAuYW5veGljIDwtIGdyYXBoX2Zyb21fZGF0YV9mcmFtZShncnBoLnRvcDMwMF9hbm94aWNfZGYkZWRnZXMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGlyZWN0ZWQgPSBGLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHZlcnRpY2VzID0gYWxsX3RlbXApCgojIE1ha2UgY29sb3IgcGFsZXR0ZXIgZm9yIGRvbWFpbgpkdHlwZSA9IGMoInJlZCIsICJncmVlbiIsICJibHVlIiwgImdyZXkiKQojIE1ha2UgY29sb3IgdmVjdG9yCmRvbWFpbl9jb2xvcl90b3AzMDBfYW5veGljIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC50b3AzMDAuYW5veGljKSQidGF4b25vbXktMSIpKV0KCgojIFBsb3QKcGxvdChncnBoLnRvcDMwMC5hbm94aWMsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5hbm94aWMpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX2Fub3hpYykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgYW5veGljIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKIyBTYXZlIHBsb3QKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvM2RvbWFpbnNfdG9wMzAwX2Fub3hpY19zcGllY2Vhc2lfbmV0d29yay5lcHMiLCB3aWR0aCA9IDUuNSwgaGVpZ2h0ID0gNSkKcGxvdChncnBoLnRvcDMwMC5hbm94aWMsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5hbm94aWMpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX2Fub3hpYykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgYW5veGljIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKYGBgCgoKCiMjIyMgUG9zaXRpdmUgYW5kIG5lZ2F0aXZlIGVkZ2VzIHNlcGFyYXRlbHkKYGBge3J9CiMgU3Vic2V0IGJhc2VkIG9uIHBvcyBvciBuZWcgZWRnZXMKZ3JwaC50b3AzMDAuYW5veGljLnBvcyA8LWRlbGV0ZS5lZGdlcyhncnBoLnRvcDMwMC5hbm94aWMsIHdoaWNoKEUoZ3JwaC50b3AzMDAuYW5veGljKSR3ZWlnaHQ8MCkpCmdycGgudG9wMzAwLmFub3hpYy5uZWcgPC1kZWxldGUuZWRnZXMoZ3JwaC50b3AzMDAuYW5veGljLCB3aGljaChFKGdycGgudG9wMzAwLmFub3hpYykkd2VpZ2h0PjApKQoKIyBGb3IgZWFjaCBzdWJzZXR0ZWQgZ3JhcGgsIHJlbW92ZSB0aG9zZSBub2RlcyB0aGF0IGFyZSBubyBsb25nZXIgY29ubmVjdGVkIHRvIGFueXRoaW5nCmdycGgudG9wMzAwLmFub3hpYy5wb3MgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgudG9wMzAwLmFub3hpYy5wb3MsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5hbm94aWMucG9zKT09MCkpCmdycGgudG9wMzAwLmFub3hpYy5uZWcgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgudG9wMzAwLmFub3hpYy5uZWcsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5hbm94aWMubmVnKT09MCkpCgojIE1ha2UgY29sb3IgdmVjdG9yIGZvciBlYWNoCmRvbWFpbl9jb2xvcl90b3AzMDBfYW5veGljX3BvcyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgudG9wMzAwLmFub3hpYy5wb3MpJCJ0YXhvbm9teS0xIikpXQpkb21haW5fY29sb3JfdG9wMzAwX2Fub3hpY19uZWcgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLnRvcDMwMC5hbm94aWMubmVnKSQidGF4b25vbXktMSIpKV0KCiMgUGxvdCBwb3MKcGxvdChncnBoLnRvcDMwMC5hbm94aWMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAuYW5veGljLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfYW5veGljX3BvcykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgUG9zaXRpdmUgRWRnZXMgb25seSwgYW5veGljIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKIyBQbG90IG5lZwpwbG90KGdycGgudG9wMzAwLmFub3hpYy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5hbm94aWMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9hbm94aWNfbmVnKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBOZWdhdGl2ZSBFZGdlcyBPbmx5LCBhbm94aWMiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJFdWthcnlhIiwgIk5vIEJsYXN0IEhpdCIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImJsdWUiLCAiZ3JleSIpLCBib3JkZXI9TkEpCgoKIyBTYXZlIHBsb3RzCnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzNkb21haW5zX3RvcDMwMF9wb3NlZGdlc19hbm94aWNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC50b3AzMDAuYW5veGljLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLmFub3hpYy5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX2Fub3hpY19wb3MpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIFBvc2l0aXZlIEVkZ2VzIE9ubHksIGFub3hpYyIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIsICJncmV5IiksIGJvcmRlcj1OQSkKZGV2Lm9mZigpCgpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc190b3AzMDBfbmVnZWRnZXNfYW5veGljX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgudG9wMzAwLmFub3hpYy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5hbm94aWMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9hbm94aWNfbmVnKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBOZWdhdGl2ZSBFZGdlcyBPbmx5LCBhbm94aWMiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJFdWthcnlhIiwgIk5vIEJsYXN0IEhpdCIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImJsdWUiLCAiZ3JleSIpLCBib3JkZXI9TkEpCgpkZXYub2ZmKCkKYGBgCgoKCgoKIyMjIEZ1bGwgZGF0YXNldCwgd2l0aCBubyBwYXJhc2l0ZXMKRmlyc3QgZXh0cmFjdCBBU1YgbmFtZXMgZnJvbSBvcmlnaW5hbCBwaHlsb3NlcSBvYmplY3RzIGluIG9yZGVyIHRvIHJldGFpbiBmb3IgbmV0d29yayBub2Rlcy4gTWFrZSBzdXJlIHRoZXNlIGFyZSBpbiBzYW1lIG9yZGVyIGluIHdoaWNoIHRoZXkgd2VudCBpbiBTcGllY0Vhc2kKYGBge3J9CnJtKHNlXzNkb21haW5zX3RvcDEwMF9hbm94aWMpCmxvYWQoIkVudmlyb25tZW50QmFja3Vwcy9DYXJpYWNvRXVrc19yZXZpc2lvbnMyX2FkZGl0aW9uYWx2YXJzXzUuUkRhdGEiKQoKdG9wMzAwX2RmX25vbnBhcmFzaXRlcyA8LSBiaW5kX3Jvd3MoZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYmFjX3RvcDEwMCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19hcmNoX3RvcDEwMCkpLCBkYXRhLmZyYW1lKG90dV90YWJsZShwc19ldWtfbm9ucGFyYXNpdGVzX3RvcDEwMCkpKQp0b3AzMDBfZGZfbm9ucGFyYXNpdGVzCmBgYAoKCmBgYHtyfQojRXh0cmFjdCBhZGphY2VuY3kgbWF0cml4IGZyb20gc3BpZWNFYXNpIG91dHB1dAphZGoubWF0IDwtIGdldFJlZml0KHNlXzNkb21haW5zX3RvcDEwMF9ub25wYXJhc2l0ZXMpCnRhYmxlKGFzLm51bWVyaWMoYWRqLm1hdCkpCgojIEV4dHJhY3Qgd2VpZ2h0ZWQgYWRqYWNlbmN5CnNlLmNvciAgPC0gY292MmNvcihhcy5tYXRyaXgoZ2V0T3B0Q292KHNlXzNkb21haW5zX3RvcDEwMF9ub25wYXJhc2l0ZXMpKSkKd2VpZ2h0ZWQuYWRqLm1hdCA8LSBzZS5jb3IqZ2V0UmVmaXQoc2VfM2RvbWFpbnNfdG9wMTAwX25vbnBhcmFzaXRlcykKCiNDb252ZXJ0IHRvIGdyYXBoIG9iamVjdHMKZ3JwaC51bndlaWdodGVkLnRvcDMwMC5ub25wYXJhc2l0ZXMgPC0gYWRqMmlncmFwaChhZGoubWF0KQpncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMgPC0gYWRqMmlncmFwaCh3ZWlnaHRlZC5hZGoubWF0KQoKCiMgUHV0IGJhY2sgaW4gc3BlY2llcyBuYW1lcwpWKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcykkbmFtZSA8LSByb3duYW1lcyh0b3AzMDBfZGZfbm9ucGFyYXNpdGVzKQoKCiMgTWFrZSBzaXplIG9mIG5vZGVzIHByb3BvcnRpb25hbCB0byBkZWdyZWUgKG51bWJlciBvZiBjb25uZWN0aW9ucykKVihncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpJHNpemUgPC0gKGRlZ3JlZShncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpICsgMSkgIyB0aGUgKzEgYXZvaWRzIHNpemUgemVybyB2ZXJ0aWNlcwoKIyBDaGFuZ2Ugd2lkdGggb2YgZWRnZXMgdG8gYmUgcHJvcG9ydGlvbmFsIHRvIHRoZWlyIHdlaWdodHMKRShncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpJHdpZHRoIDwtIGFicyhFKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcykkd2VpZ2h0KSoxMAoKIyBTY2FsZSBub2RlIHNpemVzIHRvIGJlIHNtYWxsZXIKVihncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpJHNpemUgPC0gVihncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpJHNpemUvMgoKIyBKb2luIHRheG9ub215IGRhdGEgb2YgZWFjaCBub2RlCiMgQ29udmVydCBncmFwaCB0byBkYXRhZnJhbQpncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXNfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcywgJ2JvdGgnKQoKIyBtYWtlIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZXMgZm9yIGVhY2ggZG9tYWluCmJhY190b3AxMDBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDApKSkKYXJjaF90b3AxMDBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpKQpldWtfdG9wMTAwX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19ldWtfbm9ucGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApKSAlPiUKICBtdXRhdGUobmFtZSA9IHJvd25hbWVzKHRheF90YWJsZShwc19ldWtfbm9ucGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApKSkKCiNsaW5rIGdyYXBoIGRhdGEgZnJhbWUgdG8gZm9ybWF0dGVkIHRheG9ub215IHRhYmxlcwpiYWNfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzX2RmJHZlcnRpY2VzWzE6bnRheGEocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDApLF0sCmJhY190b3AxMDBfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKIyBkZWxldGUgY29sdW1ucyB0aGF0IGRvbid0IG1hdGNoIG90aGVyIHRheCB0YWJsZXMKYmFjX3RlbXAgPC0gc2VsZWN0KGJhY190ZW1wLCAtInRheG9ub215LTkiLCAtIlJlZmluZWQgdGF4b25vbXkiKQoKYXJjaF90ZW1wIDwtIGxlZnRfam9pbihncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXNfZGYkdmVydGljZXNbbnRheGEocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSsxOm50YXhhKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCksXSxhcmNoX3RvcDEwMF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQoKZXVrX3RlbXAgPC0gbGVmdF9qb2luKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlc19kZiR2ZXJ0aWNlc1tudGF4YShwc19ldWtfbm9ucGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApK250YXhhKHBzX2V1a19ub25wYXJhc2l0ZXNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkrMTpudGF4YShwc19ldWtfbm9ucGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApLF0sIGV1a190b3AxMDBfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKCiMgcmVuYW1lIGNvbHVtbiBuYW1lcyBpbiBldWsgdGFibGUgdG8gbWF0Y2ggb3RoZXJzCmV1a190ZW1wIDwtIGV1a190ZW1wICU+JQogICAgcmVuYW1lKCJ0YXhvbm9teS0xIiA9IEtpbmdkb20sICJ0YXhvbm9teS0yIiA9IFN1cGVyZ3JvdXAsICJ0YXhvbm9teS0zIiA9IERpdmlzaW9uLCAidGF4b25vbXktNCIgPSBDbGFzcywgInRheG9ub215LTUiID0gT3JkZXIsICJ0YXhvbm9teS02IiA9IEZhbWlseSwgInRheG9ub215LTciID0gR2VudXMsICJ0YXhvbm9teS04IiA9IFNwZWNpZXMpCgojIGJ1aWxkIGZ1bGwgZGF0YWZyYW1lIHdpdGggYWxsIDMgZG9tYWlucwphbGxfdGVtcCA8LSByYmluZChiYWNfdGVtcCwgYXJjaF90ZW1wLCBldWtfdGVtcCkKCiMgcmVtYWtlIGludG8gZ3JhcGgKZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzIDwtIGdyYXBoX2Zyb21fZGF0YV9mcmFtZShncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXNfZGYkZWRnZXMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGlyZWN0ZWQgPSBGLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHZlcnRpY2VzID0gYWxsX3RlbXApCgojIE1ha2UgY29sb3IgcGFsZXR0ZXIgZm9yIGRvbWFpbgpkdHlwZSA9IGMoInJlZCIsICJncmVlbiIsICJibHVlIiwgImdyZXkiKQojIE1ha2UgY29sb3IgdmVjdG9yCmRvbWFpbl9jb2xvcl90b3AzMDBfbm9ucGFyYXNpdGVzIDwtIGR0eXBlW2FzLm51bWVyaWMoYXMuZmFjdG9yKFYoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzKSQidGF4b25vbXktMSIpKV0KCgojIFBsb3QKcGxvdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX25vbnBhcmFzaXRlcykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgbm8gcGFyYXNpdGVzIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKIyBTYXZlIHBsb3QKc2V0RVBTKCkKcG9zdHNjcmlwdChmaWxlID0gIkZpZ3VyZXMvM2RvbWFpbnNfbm9ucGFyYXNpdGVzX3RvcDMwMF9zcGllY2Vhc2lfbmV0d29yay5lcHMiLCB3aWR0aCA9IDUuNSwgaGVpZ2h0ID0gNSkKcGxvdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX25vbnBhcmFzaXRlcykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgTm8gcGFyYXNpdGVzIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKYGBgCgoKCiMjIyMgUG9zaXRpdmUgYW5kIG5lZ2F0aXZlIGVkZ2VzIHNlcGFyYXRlbHkKYGBge3J9CiMgU3Vic2V0IGJhc2VkIG9uIHBvcyBvciBuZWcgZWRnZXMKZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzLnBvcyA8LWRlbGV0ZS5lZGdlcyhncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMsIHdoaWNoKEUoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzKSR3ZWlnaHQ8MCkpCmdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5uZWcgPC1kZWxldGUuZWRnZXMoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzLCB3aGljaChFKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcykkd2VpZ2h0PjApKQoKIyBGb3IgZWFjaCBzdWJzZXR0ZWQgZ3JhcGgsIHJlbW92ZSB0aG9zZSBub2RlcyB0aGF0IGFyZSBubyBsb25nZXIgY29ubmVjdGVkIHRvIGFueXRoaW5nCmdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5wb3MgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5wb3MsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMucG9zKT09MCkpCmdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5uZWcgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5uZWcsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMubmVnKT09MCkpCgojIE1ha2UgY29sb3IgdmVjdG9yIGZvciBlYWNoCmRvbWFpbl9jb2xvcl90b3AzMDBfbm9ucGFyYXNpdGVzX3BvcyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5wb3MpJCJ0YXhvbm9teS0xIikpXQpkb21haW5fY29sb3JfdG9wMzAwX25vbnBhcmFzaXRlc19uZWcgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMubmVnKSQidGF4b25vbXktMSIpKV0KCiMgUGxvdCBwb3MKcGxvdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfbm9ucGFyYXNpdGVzX3BvcykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgUG9zaXRpdmUgRWRnZXMgb25seSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIsICJncmV5IiksIGJvcmRlcj1OQSkKCiMgUGxvdCBuZWcKcGxvdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfbm9ucGFyYXNpdGVzX25lZykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgTm8gUGFyYXNpdGVzLCBOZWdhdGl2ZSBFZGdlcyBPbmx5IikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKCiMgU2F2ZSBwbG90cwpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc19ub25wYXJhc2l0ZXNfdG9wMzAwX3Bvc2VkZ2VzX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9ub25wYXJhc2l0ZXNfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBObyBQYXJhc2l0ZXMsIFBvc2l0aXZlIEVkZ2VzIE9ubHksIE94eWNsaW5lIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKCnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzNkb21haW5zX25vbnBhcmFzaXRlc190b3AzMDBfbmVnZWRnZXNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5uZWcpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX25vbnBhcmFzaXRlc19uZWcpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIE5vIFBhcmFzaXRlcywgTmVnYXRpdmUgRWRnZXMgT25seSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIsICJncmV5IiksIGJvcmRlcj1OQSkKCmRldi5vZmYoKQpgYGAKCgoKCiMjIyBGdWxsIGRhdGFzZXQsIHdpdGggb25seSBwYXJhc2l0ZXMgZnJvbSBldWtzCkZpcnN0IGV4dHJhY3QgQVNWIG5hbWVzIGZyb20gb3JpZ2luYWwgcGh5bG9zZXEgb2JqZWN0cyBpbiBvcmRlciB0byByZXRhaW4gZm9yIG5ldHdvcmsgbm9kZXMuIE1ha2Ugc3VyZSB0aGVzZSBhcmUgaW4gc2FtZSBvcmRlciBpbiB3aGljaCB0aGV5IHdlbnQgaW4gU3BpZWNFYXNpCmBgYHtyfQpybShzZV8zZG9tYWluc190b3AxMDBfbm9ucGFyYXNpdGVzKQpsb2FkKCJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcmV2aXNpb25zMl9hZGRpdGlvbmFsdmFyc182LlJEYXRhIikKCnRvcDMwMF9kZl9wYXJhc2l0ZXMgPC0gYmluZF9yb3dzKGRhdGEuZnJhbWUob3R1X3RhYmxlKHBzX2JhY190b3AxMDApKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfYXJjaF90b3AxMDApKSwgZGF0YS5mcmFtZShvdHVfdGFibGUocHNfZXVrX3BhcmFzaXRlc190b3AxMDApKSkKdG9wMzAwX2RmX3BhcmFzaXRlcwpgYGAKCgpgYGB7cn0KI0V4dHJhY3QgYWRqYWNlbmN5IG1hdHJpeCBmcm9tIHNwaWVjRWFzaSBvdXRwdXQKYWRqLm1hdCA8LSBnZXRSZWZpdChzZV8zZG9tYWluc190b3AxMDBfcGFyYXNpdGVzKQp0YWJsZShhcy5udW1lcmljKGFkai5tYXQpKQoKIyBFeHRyYWN0IHdlaWdodGVkIGFkamFjZW5jeQpzZS5jb3IgIDwtIGNvdjJjb3IoYXMubWF0cml4KGdldE9wdENvdihzZV8zZG9tYWluc190b3AxMDBfcGFyYXNpdGVzKSkpCndlaWdodGVkLmFkai5tYXQgPC0gc2UuY29yKmdldFJlZml0KHNlXzNkb21haW5zX3RvcDEwMF9wYXJhc2l0ZXMpCgojQ29udmVydCB0byBncmFwaCBvYmplY3RzCmdycGgudW53ZWlnaHRlZC50b3AzMDAucGFyYXNpdGVzIDwtIGFkajJpZ3JhcGgoYWRqLm1hdCkKZ3JwaC50b3AzMDAucGFyYXNpdGVzIDwtIGFkajJpZ3JhcGgod2VpZ2h0ZWQuYWRqLm1hdCkKCgojIFB1dCBiYWNrIGluIHNwZWNpZXMgbmFtZXMKVihncnBoLnRvcDMwMC5wYXJhc2l0ZXMpJG5hbWUgPC0gcm93bmFtZXModG9wMzAwX2RmX3BhcmFzaXRlcykKCgojIE1ha2Ugc2l6ZSBvZiBub2RlcyBwcm9wb3J0aW9uYWwgdG8gZGVncmVlIChudW1iZXIgb2YgY29ubmVjdGlvbnMpClYoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSRzaXplIDwtIChkZWdyZWUoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSArIDEpICMgdGhlICsxIGF2b2lkcyBzaXplIHplcm8gdmVydGljZXMKCiMgQ2hhbmdlIHdpZHRoIG9mIGVkZ2VzIHRvIGJlIHByb3BvcnRpb25hbCB0byB0aGVpciB3ZWlnaHRzCkUoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSR3aWR0aCA8LSBhYnMoRShncnBoLnRvcDMwMC5wYXJhc2l0ZXMpJHdlaWdodCkqMTAKCiMgU2NhbGUgbm9kZSBzaXplcyB0byBiZSBzbWFsbGVyClYoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSRzaXplIDwtIFYoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSRzaXplLzIKCiMgSm9pbiB0YXhvbm9teSBkYXRhIG9mIGVhY2ggbm9kZQojIENvbnZlcnQgZ3JhcGggdG8gZGF0YWZyYW0KZ3JwaC50b3AzMDAucGFyYXNpdGVzX2RmIDwtIGlncmFwaDo6YXNfZGF0YV9mcmFtZShncnBoLnRvcDMwMC5wYXJhc2l0ZXMsICdib3RoJykKCiMgbWFrZSBmb3JtYXR0ZWQgdGF4b25vbXkgdGFibGVzIGZvciBlYWNoIGRvbWFpbgpiYWNfdG9wMTAwX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpICU+JQogIG11dGF0ZShuYW1lID0gcm93bmFtZXModGF4X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkpCmFyY2hfdG9wMTAwX3RheF90YWJsZSA8LSBhcy5kYXRhLmZyYW1lKHRheF90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApKSAlPiUKICBtdXRhdGUobmFtZSA9IHJvd25hbWVzKHRheF90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApKSkKZXVrX3RvcDEwMF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfZXVrX3BhcmFzaXRlc19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfZXVrX3BhcmFzaXRlc19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkpCgojbGluayBncmFwaCBkYXRhIGZyYW1lIHRvIGZvcm1hdHRlZCB0YXhvbm9teSB0YWJsZXMKYmFjX3RlbXAgPC0gbGVmdF9qb2luKGdycGgudG9wMzAwLnBhcmFzaXRlc19kZiR2ZXJ0aWNlc1sxOm50YXhhKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSxdLApiYWNfdG9wMTAwX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCiMgZGVsZXRlIGNvbHVtbnMgdGhhdCBkb24ndCBtYXRjaCBvdGhlciB0YXggdGFibGVzCmJhY190ZW1wIDwtIHNlbGVjdChiYWNfdGVtcCwgLSJ0YXhvbm9teS05IiwgLSJSZWZpbmVkIHRheG9ub215IikKCmFyY2hfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC50b3AzMDAucGFyYXNpdGVzX2RmJHZlcnRpY2VzW250YXhhKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkrMTpudGF4YShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApLF0sYXJjaF90b3AxMDBfdGF4X3RhYmxlLCBieSA9ICJuYW1lIikKCmV1a190ZW1wIDwtIGxlZnRfam9pbihncnBoLnRvcDMwMC5wYXJhc2l0ZXNfZGYkdmVydGljZXNbbnRheGEocHNfZXVrX3BhcmFzaXRlc19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKStudGF4YShwc19ldWtfcGFyYXNpdGVzX3BydW5lZF8zZG9tYWluc190b3AxMDApKzE6bnRheGEocHNfZXVrX3BhcmFzaXRlc19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSxdLCBldWtfdG9wMTAwX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCgojIHJlbmFtZSBjb2x1bW4gbmFtZXMgaW4gZXVrIHRhYmxlIHRvIG1hdGNoIG90aGVycwpldWtfdGVtcCA8LSBldWtfdGVtcCAlPiUKICAgIHJlbmFtZSgidGF4b25vbXktMSIgPSBLaW5nZG9tLCAidGF4b25vbXktMiIgPSBTdXBlcmdyb3VwLCAidGF4b25vbXktMyIgPSBEaXZpc2lvbiwgInRheG9ub215LTQiID0gQ2xhc3MsICJ0YXhvbm9teS01IiA9IE9yZGVyLCAidGF4b25vbXktNiIgPSBGYW1pbHksICJ0YXhvbm9teS03IiA9IEdlbnVzLCAidGF4b25vbXktOCIgPSBTcGVjaWVzKQoKIyBidWlsZCBmdWxsIGRhdGFmcmFtZSB3aXRoIGFsbCAzIGRvbWFpbnMKYWxsX3RlbXAgPC0gcmJpbmQoYmFjX3RlbXAsIGFyY2hfdGVtcCwgZXVrX3RlbXApCgojIHJlbWFrZSBpbnRvIGdyYXBoCmdycGgudG9wMzAwLnBhcmFzaXRlcyA8LSBncmFwaF9mcm9tX2RhdGFfZnJhbWUoZ3JwaC50b3AzMDAucGFyYXNpdGVzX2RmJGVkZ2VzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRpcmVjdGVkID0gRiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB2ZXJ0aWNlcyA9IGFsbF90ZW1wKQoKIyBNYWtlIGNvbG9yIHBhbGV0dGVyIGZvciBkb21haW4KZHR5cGUgPSBjKCJyZWQiLCAiZ3JlZW4iLCAiYmx1ZSIsICJncmV5IikKIyBNYWtlIGNvbG9yIHZlY3Rvcgpkb21haW5fY29sb3JfdG9wMzAwX3BhcmFzaXRlcyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgudG9wMzAwLnBhcmFzaXRlcykkInRheG9ub215LTEiKSldCgoKIyBQbG90CnBsb3QoZ3JwaC50b3AzMDAucGFyYXNpdGVzLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9wYXJhc2l0ZXMpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIFBhcmFzaXRpYyBFdWthcnlvdGVzIE9ubHkiKQpsZWdlbmQoInRvcHJpZ2h0IixidHkgPSAibiIsCiAgICAgICBsZWdlbmQ9YygiQXJjaGFlYSIsICJCYWN0ZXJpYSIsICJFdWthcnlhIiwgIk5vIGJsYXN0IGhpdCIpLAogICAgICAgZmlsbD1jKCJyZWQiLCJncmVlbiIsImJsdWUiLCAiZ3JleSIpLCBib3JkZXI9TkEpCgojIFNhdmUgcGxvdApzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc19wYXJhc2l0ZXNfdG9wMzAwX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgudG9wMzAwLnBhcmFzaXRlcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLnBhcmFzaXRlcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfcGFyYXNpdGVzKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBQYXJhc2l0aWMgRXVrYXJ5b3RlcyBPbmx5IikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBibGFzdCBoaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKYGBgCgoKCiMjIyMgUG9zaXRpdmUgYW5kIG5lZ2F0aXZlIGVkZ2VzIHNlcGFyYXRlbHkKYGBge3J9CiMgU3Vic2V0IGJhc2VkIG9uIHBvcyBvciBuZWcgZWRnZXMKZ3JwaC50b3AzMDAucGFyYXNpdGVzLnBvcyA8LWRlbGV0ZS5lZGdlcyhncnBoLnRvcDMwMC5wYXJhc2l0ZXMsIHdoaWNoKEUoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSR3ZWlnaHQ8MCkpCmdycGgudG9wMzAwLnBhcmFzaXRlcy5uZWcgPC1kZWxldGUuZWRnZXMoZ3JwaC50b3AzMDAucGFyYXNpdGVzLCB3aGljaChFKGdycGgudG9wMzAwLnBhcmFzaXRlcykkd2VpZ2h0PjApKQoKIyBGb3IgZWFjaCBzdWJzZXR0ZWQgZ3JhcGgsIHJlbW92ZSB0aG9zZSBub2RlcyB0aGF0IGFyZSBubyBsb25nZXIgY29ubmVjdGVkIHRvIGFueXRoaW5nCmdycGgudG9wMzAwLnBhcmFzaXRlcy5wb3MgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgudG9wMzAwLnBhcmFzaXRlcy5wb3MsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5wYXJhc2l0ZXMucG9zKT09MCkpCmdycGgudG9wMzAwLnBhcmFzaXRlcy5uZWcgPC0gZGVsZXRlLnZlcnRpY2VzKGdycGgudG9wMzAwLnBhcmFzaXRlcy5uZWcsIHdoaWNoKGRlZ3JlZShncnBoLnRvcDMwMC5wYXJhc2l0ZXMubmVnKT09MCkpCgojIE1ha2UgY29sb3IgdmVjdG9yIGZvciBlYWNoCmRvbWFpbl9jb2xvcl90b3AzMDBfcGFyYXNpdGVzX3BvcyA8LSBkdHlwZVthcy5udW1lcmljKGFzLmZhY3RvcihWKGdycGgudG9wMzAwLnBhcmFzaXRlcy5wb3MpJCJ0YXhvbm9teS0xIikpXQpkb21haW5fY29sb3JfdG9wMzAwX3BhcmFzaXRlc19uZWcgPC0gZHR5cGVbYXMubnVtZXJpYyhhcy5mYWN0b3IoVihncnBoLnRvcDMwMC5wYXJhc2l0ZXMubmVnKSQidGF4b25vbXktMSIpKV0KCiMgUGxvdCBwb3MKcGxvdChncnBoLnRvcDMwMC5wYXJhc2l0ZXMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAucGFyYXNpdGVzLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfcGFyYXNpdGVzX3BvcykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgUG9zaXRpdmUgRWRnZXMgb25seSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIsICJncmV5IiksIGJvcmRlcj1OQSkKCiMgUGxvdCBuZWcKcGxvdChncnBoLnRvcDMwMC5wYXJhc2l0ZXMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAucGFyYXNpdGVzLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfcGFyYXNpdGVzX25lZykKdGl0bGUoIlNwaWVjRWFzaSBOZXR3b3JrOiBBbGwgZG9tYWlucywgTm8gUGFyYXNpdGVzLCBOZWdhdGl2ZSBFZGdlcyBPbmx5IikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQoKCiMgU2F2ZSBwbG90cwpzZXRFUFMoKQpwb3N0c2NyaXB0KGZpbGUgPSAiRmlndXJlcy8zZG9tYWluc19wYXJhc2l0ZXNfdG9wMzAwX3Bvc2VkZ2VzX3NwaWVjZWFzaV9uZXR3b3JrLmVwcyIsIHdpZHRoID0gNS41LCBoZWlnaHQgPSA1KQpwbG90KGdycGgudG9wMzAwLnBhcmFzaXRlcy5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5wYXJhc2l0ZXMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9wYXJhc2l0ZXNfcG9zKQp0aXRsZSgiU3BpZWNFYXNpIE5ldHdvcms6IEFsbCBkb21haW5zLCBObyBQYXJhc2l0ZXMsIFBvc2l0aXZlIEVkZ2VzIE9ubHksIE94eWNsaW5lIikKbGVnZW5kKCJ0b3ByaWdodCIsYnR5ID0gIm4iLAogICAgICAgbGVnZW5kPWMoIkFyY2hhZWEiLCAiQmFjdGVyaWEiLCAiRXVrYXJ5YSIsICJObyBCbGFzdCBIaXQiKSwKICAgICAgIGZpbGw9YygicmVkIiwiZ3JlZW4iLCJibHVlIiwgImdyZXkiKSwgYm9yZGVyPU5BKQpkZXYub2ZmKCkKCnNldEVQUygpCnBvc3RzY3JpcHQoZmlsZSA9ICJGaWd1cmVzLzNkb21haW5zX3BhcmFzaXRlc190b3AzMDBfbmVnZWRnZXNfc3BpZWNlYXNpX25ldHdvcmsuZXBzIiwgd2lkdGggPSA1LjUsIGhlaWdodCA9IDUpCnBsb3QoZ3JwaC50b3AzMDAucGFyYXNpdGVzLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLnBhcmFzaXRlcy5uZWcpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX3BhcmFzaXRlc19uZWcpCnRpdGxlKCJTcGllY0Vhc2kgTmV0d29yazogQWxsIGRvbWFpbnMsIE5vIFBhcmFzaXRlcywgTmVnYXRpdmUgRWRnZXMgT25seSIpCmxlZ2VuZCgidG9wcmlnaHQiLGJ0eSA9ICJuIiwKICAgICAgIGxlZ2VuZD1jKCJBcmNoYWVhIiwgIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksCiAgICAgICBmaWxsPWMoInJlZCIsImdyZWVuIiwiYmx1ZSIsICJncmV5IiksIGJvcmRlcj1OQSkKCmRldi5vZmYoKQpgYGAKCiMjIyBTYXZlIGFuZCByZS1sb2FkCmBgYHtyfQojIHJlbW92ZSBzb21lIG9mIHRoZSBsYXJnZSBzcGllY2Vhc2kgb2JqZWN0cy4gSGF2ZSB1c2VkIHRoZXNlIHRvIGNyZWF0ZSBkb3duc3RyZWFtIHZhcmlhYmxlcyBhdCB0aGlzIHBvaW50CnJtKHNlLCBzZV8zZG9tYWluc190b3AxMDBfcGFyYXNpdGVzLCBzZS4yZG9tYWlucywgc2UuYW5veGljLCBzZS5jb3IsIHNlLmV1eGluaWMsc2Uub3h5Y2xpbmUpCiMgc2F2ZQpzYXZlLmltYWdlKCJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcG9zdGFuYWx5c2lzX3ZhcnNfdXB0b19PY3QyMDIxX25ld05ldHdvcmtzLlJEYXRhIikKYGBgCgpPciBsb2FkIGlmIGNvbWluZyBiYWNrCmBgYHtyfQpsb2FkKCJFbnZpcm9ubWVudEJhY2t1cHMvQ2FyaWFjb0V1a3NfcG9zdGFuYWx5c2lzX3ZhcnNfdXB0b19PY3QyMDIxX25ld05ldHdvcmtzLlJEYXRhIikKYGBgCgoKCgojIyMgU3VtbWFyeSBuZXR3b3JrIGZpZ3VyZXMgZm9yIG1hbnVzY3JpcHQKVXNpbmcgdGhlIG5ldywgc2l6ZS1jb250cm9sbGVkIG5ldHdvcmsgcGxvdHMKCkZpcnN0LSBBbGwgZGVwdGhzLCBveHljbGluZSwgYW5veGljIG5ldHdvcmtzOgpgYGB7cn0KIyBTZXQgdXAgaW4gcGFuZWxzCm9wIDwtIHBhcihvbWE9YygyLC41LC41LDApLCMgUm9vbSBmb3IgdGhlIHRpdGxlcyBhbmQgbGVnZW5kCiAgbWZyb3c9YygzLDIpLAogIG1haT1jKC4xNSwuMywuMTUsLjEpKQojIFBhbmVsIDEtIEFsbCBkZXB0aHMsIHBvc2l0aXZlIG5ldHdvcmsKcGxvdChncnBoLnRvcDMwMC5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX3BvcykKbXRleHQgKCJQb3NpdGl2ZSIsIHNpZGUgPSAzLCBvdXRlciA9IFRSVUUsIGxpbmUgPSAtMSwgYWRqID0gMC4yMiwgY2V4ID0gLjgpCm10ZXh0KCJBbGwgZGVwdGhzIiwgc2lkZT0yLCBjZXggPSAuOCwgbGluZSA9IDEuNSkKIyBQYW5lbCAyLSBBbGwgZGVwdGhzLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAuMmRvbWFpbnMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAuMmRvbWFpbnMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9uZWcpCm10ZXh0ICgiTmVnYXRpdmUiLCBzaWRlID0gMywgb3V0ZXIgPSBUUlVFLCBsaW5lID0gLTEsIGFkaiA9IC44LCBjZXggPSAuOCkKIyBQYW5lbCAzLSBPeHljbGluZSwgcG9zaXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLm94eWNsaW5lLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm94eWNsaW5lLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfb3h5Y2xpbmVfcG9zKQptdGV4dCgiT3h5Y2xpbmUiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDQtIE94eWNsaW5lLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9veHljbGluZV9uZWcpCiMgUGFuZWwgNS0gQW5veGljLCBwb3NpdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAuYW5veGljLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLmFub3hpYy5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX2Fub3hpY19wb3MpCm10ZXh0KCJBbm94aWMiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDYtIEFub3hpYywgbmVnYXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLmFub3hpYy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5hbm94aWMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9hbm94aWNfbmVnKQojIEFkZCBsZWdlbmQKcGFyKG9wKSAjIExlYXZlIHRoZSBsYXN0IHBsb3QKb3AgPC0gcGFyKHVzcj1jKDAsMSwwLDEpLCAjIFJlc2V0IHRoZSBjb29yZGluYXRlcwogICAgICAgICAgeHBkPU5BKSAgICAgICAgICMgQWxsb3cgcGxvdHRpbmcgb3V0c2lkZSB0aGUgcGxvdCByZWdpb24KbGVnZW5kKC4xNSwtMC4wNCwgYygiQXJjaGFlYSIsIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksIGNvbD1jKCJyZWQiLCAiZ3JlZW4iLCAiYmx1ZSIsICJncmV5IiksIHBjaCA9IGMoMTYpLCBib3guY29sPU5BLCBjZXggPSAuOCwgaG9yaXogPSBULCB4LmludGVyc3AgPSBjKDAuMykpCgoKIyBTYXZlIGZpZ3VyZQojIFNldCB1cCBFUFMgYW5kIG1ha2UgcGxvdApzZXRFUFMod2lkdGggPSA2LCBoZWlnaHQgPSA3KQpwb3N0c2NyaXB0KCJGaWd1cmVzL05ldHdvcmtzX3Bvc19uZWdfYWxsX294eWNsaW5lX2Fub3hfTm92MjEuZXBzIikKIyBTZXQgdXAgaW4gcGFuZWxzCm9wIDwtIHBhcihvbWE9YygyLC41LC41LDApLCMgUm9vbSBmb3IgdGhlIHRpdGxlcyBhbmQgbGVnZW5kCiAgbWZyb3c9YygzLDIpLAogIG1haT1jKC4xNSwuMywuMTUsLjEpKQojIFBhbmVsIDEtIEFsbCBkZXB0aHMsIHBvc2l0aXZlIG5ldHdvcmsKcGxvdChncnBoLnRvcDMwMC5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX3BvcykKbXRleHQgKCJQb3NpdGl2ZSIsIHNpZGUgPSAzLCBvdXRlciA9IFRSVUUsIGxpbmUgPSAtMSwgYWRqID0gMC4yMiwgY2V4ID0gLjgpCm10ZXh0KCJBbGwgZGVwdGhzIiwgc2lkZT0yLCBjZXggPSAuOCwgbGluZSA9IDEuNSkKIyBQYW5lbCAyLSBBbGwgZGVwdGhzLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9uZWcpCm10ZXh0ICgiTmVnYXRpdmUiLCBzaWRlID0gMywgb3V0ZXIgPSBUUlVFLCBsaW5lID0gLTEsIGFkaiA9IC44LCBjZXggPSAuOCkKIyBQYW5lbCAzLSBPeHljbGluZSwgcG9zaXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLm94eWNsaW5lLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm94eWNsaW5lLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfb3h5Y2xpbmVfcG9zKQptdGV4dCgiT3h5Y2xpbmUiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDQtIE94eWNsaW5lLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9veHljbGluZV9uZWcpCiMgUGFuZWwgNS0gQW5veGljLCBwb3NpdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAuYW5veGljLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLmFub3hpYy5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX2Fub3hpY19wb3MpCm10ZXh0KCJBbm94aWMiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDYtIEFub3hpYywgbmVnYXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLmFub3hpYy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5hbm94aWMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9hbm94aWNfbmVnKQojIEFkZCBsZWdlbmQKcGFyKG9wKSAjIExlYXZlIHRoZSBsYXN0IHBsb3QKb3AgPC0gcGFyKHVzcj1jKDAsMSwwLDEpLCAjIFJlc2V0IHRoZSBjb29yZGluYXRlcwogICAgICAgICAgeHBkPU5BKSAgICAgICAgICMgQWxsb3cgcGxvdHRpbmcgb3V0c2lkZSB0aGUgcGxvdCByZWdpb24KbGVnZW5kKC4xNSwtMC4wNCwgYygiQXJjaGFlYSIsIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksIGNvbD1jKCJyZWQiLCAiZ3JlZW4iLCAiYmx1ZSIsICJncmV5IiksIHBjaCA9IGMoMTYpLCBib3guY29sPU5BLCBjZXggPSAuOCwgaG9yaXogPSBULCB4LmludGVyc3AgPSBjKDAuMykpCmRldi5vZmYoKQoKCgpgYGAKCgoKCgoKU2Vjb25kLSBObyBldWtzLCBubyBwYXJhc2l0ZXMsIG5vIG5vbnBhcmFzaXRlcwpgYGB7cn0KIyBTZXQgdXAgaW4gcGFuZWxzCm9wIDwtIHBhcihvbWE9YygyLC41LC41LDApLCMgUm9vbSBmb3IgdGhlIHRpdGxlcyBhbmQgbGVnZW5kCiAgbWZyb3c9YygzLDIpLAogIG1haT1jKC4xNSwuMywuMTUsLjEpKQojIFBhbmVsIDEtIEV1a3MgcmVtb3ZlZCwgcG9zaXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLjJkb21haW5zLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLjJkb21haW5zLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWluc190b3AzMDBfcG9zKQptdGV4dCAoIlBvc2l0aXZlIiwgc2lkZSA9IDMsIG91dGVyID0gVFJVRSwgbGluZSA9IC0xLCBhZGogPSAwLjIyLCBjZXggPSAuOCkKbXRleHQoIkV1a2FyeW90ZXMgcmVtb3ZlZCIsIHNpZGU9MiwgY2V4ID0gLjgsIGxpbmUgPSAxLjUpCiMgUGFuZWwgMi0gRXVrcywgbmVnYXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLjJkb21haW5zLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLjJkb21haW5zLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl8yZG9tYWluc190b3AzMDBfbmVnKQptdGV4dCAoIk5lZ2F0aXZlIiwgc2lkZSA9IDMsIG91dGVyID0gVFJVRSwgbGluZSA9IC0xLCBhZGogPSAuOCwgY2V4ID0gLjgpCiMgUGFuZWwgMy0gUGFyYXNpdGVzIHJlbW92ZWQsIHBvc2l0aXZlIG5ldHdvcmsKcGxvdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfbm9ucGFyYXNpdGVzX3BvcykKbXRleHQoIlBhcmFzaXRlcyBSZW1vdmVkIiwgc2lkZT0yLCBjZXggPSAuOCwgbGluZSA9IDEuNSkKIyBQYW5lbCA0LSBQYXJhc2l0ZXMgcmVtb3ZlZCwgbmVnYXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9ub25wYXJhc2l0ZXNfbmVnKQojIFBhbmVsIDUtIE5vbnBhcmFzaXRlcyByZW1vdmVkLCBwb3NpdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAucGFyYXNpdGVzLnBvcywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLnBhcmFzaXRlcy5wb3MpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX3BhcmFzaXRlc19wb3MpCm10ZXh0KCJOb25wYXJhc2l0ZXMgUmVtb3ZlZCIsIHNpZGU9MiwgY2V4ID0gLjgsIGxpbmUgPSAxLjUpCiMgUGFuZWwgNi0gTm9ucGFyYXNpdGVzIHJlbW92ZWQsIG5lZ2F0aXZlIG5ldHdvcmsKcGxvdChncnBoLnRvcDMwMC5wYXJhc2l0ZXMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAucGFyYXNpdGVzLm5lZyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfcGFyYXNpdGVzX25lZykKIyBBZGQgbGVnZW5kCnBhcihvcCkgIyBMZWF2ZSB0aGUgbGFzdCBwbG90Cm9wIDwtIHBhcih1c3I9YygwLDEsMCwxKSwgIyBSZXNldCB0aGUgY29vcmRpbmF0ZXMKICAgICAgICAgIHhwZD1OQSkgICAgICAgICAjIEFsbG93IHBsb3R0aW5nIG91dHNpZGUgdGhlIHBsb3QgcmVnaW9uCmxlZ2VuZCguMTUsLTAuMDQsIGMoIkFyY2hhZWEiLCJCYWN0ZXJpYSIsICJFdWthcnlhIiwgIk5vIEJsYXN0IEhpdCIpLCBjb2w9YygicmVkIiwgImdyZWVuIiwgImJsdWUiLCAiZ3JleSIpLCBwY2ggPSBjKDE2KSwgYm94LmNvbD1OQSwgY2V4ID0gLjgsIGhvcml6ID0gVCwgeC5pbnRlcnNwID0gYygwLjMpKQoKCiMgU2F2ZSBmaWd1cmUKIyBTZXQgdXAgRVBTIGFuZCBtYWtlIHBsb3QKc2V0RVBTKHdpZHRoID0gNiwgaGVpZ2h0ID0gNykKcG9zdHNjcmlwdCgiRmlndXJlcy9OZXR3b3Jrc19wb3NfbmVnX25vZXVrc19ub3BhcmFzaXRlc19ub25vbnBhcmFzaXRlc19Ob3YyMS5lcHMiKQojIFNldCB1cCBpbiBwYW5lbHMKb3AgPC0gcGFyKG9tYT1jKDIsLjUsLjUsMCksIyBSb29tIGZvciB0aGUgdGl0bGVzIGFuZCBsZWdlbmQKICBtZnJvdz1jKDMsMiksCiAgbWFpPWMoLjE1LC4zLC4xNSwuMSkpCiMgUGFuZWwgMS0gRXVrcyByZW1vdmVkLCBwb3NpdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAuMmRvbWFpbnMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAuMmRvbWFpbnMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yXzJkb21haW5zX3RvcDMwMF9wb3MpCm10ZXh0ICgiUG9zaXRpdmUiLCBzaWRlID0gMywgb3V0ZXIgPSBUUlVFLCBsaW5lID0gLTEsIGFkaiA9IDAuMjIsIGNleCA9IC44KQptdGV4dCgiRXVrYXJ5b3RlcyByZW1vdmVkIiwgc2lkZT0yLCBjZXggPSAuOCwgbGluZSA9IDEuNSkKIyBQYW5lbCAyLSBFdWtzLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAuMmRvbWFpbnMubmVnLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAuMmRvbWFpbnMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yXzJkb21haW5zX3RvcDMwMF9uZWcpCm10ZXh0ICgiTmVnYXRpdmUiLCBzaWRlID0gMywgb3V0ZXIgPSBUUlVFLCBsaW5lID0gLTEsIGFkaiA9IC44LCBjZXggPSAuOCkKIyBQYW5lbCAzLSBQYXJhc2l0ZXMgcmVtb3ZlZCwgcG9zaXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5wb3MsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMucG9zKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9ub25wYXJhc2l0ZXNfcG9zKQptdGV4dCgiUGFyYXNpdGVzIFJlbW92ZWQiLCBzaWRlPTIsIGNleCA9IC44LCBsaW5lID0gMS41KQojIFBhbmVsIDQtIFBhcmFzaXRlcyByZW1vdmVkLCBuZWdhdGl2ZSBuZXR3b3JrCnBsb3QoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzLm5lZywKICAgICB2ZXJ0ZXgubGFiZWw9TkEsCiAgICAgbGF5b3V0PWxheW91dF93aXRoX2dyYXBob3B0KGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcy5uZWcpLAogICAgIHZlcnRleC5jb2xvcj1kb21haW5fY29sb3JfdG9wMzAwX25vbnBhcmFzaXRlc19uZWcpCiMgUGFuZWwgNS0gTm9ucGFyYXNpdGVzIHJlbW92ZWQsIHBvc2l0aXZlIG5ldHdvcmsKcGxvdChncnBoLnRvcDMwMC5wYXJhc2l0ZXMucG9zLAogICAgIHZlcnRleC5sYWJlbD1OQSwKICAgICBsYXlvdXQ9bGF5b3V0X3dpdGhfZ3JhcGhvcHQoZ3JwaC50b3AzMDAucGFyYXNpdGVzLnBvcyksCiAgICAgdmVydGV4LmNvbG9yPWRvbWFpbl9jb2xvcl90b3AzMDBfcGFyYXNpdGVzX3BvcykKbXRleHQoIk5vbnBhcmFzaXRlcyBSZW1vdmVkIiwgc2lkZT0yLCBjZXggPSAuOCwgbGluZSA9IDEuNSkKIyBQYW5lbCA2LSBOb25wYXJhc2l0ZXMgcmVtb3ZlZCwgbmVnYXRpdmUgbmV0d29yawpwbG90KGdycGgudG9wMzAwLnBhcmFzaXRlcy5uZWcsCiAgICAgdmVydGV4LmxhYmVsPU5BLAogICAgIGxheW91dD1sYXlvdXRfd2l0aF9ncmFwaG9wdChncnBoLnRvcDMwMC5wYXJhc2l0ZXMubmVnKSwKICAgICB2ZXJ0ZXguY29sb3I9ZG9tYWluX2NvbG9yX3RvcDMwMF9wYXJhc2l0ZXNfbmVnKQojIEFkZCBsZWdlbmQKcGFyKG9wKSAjIExlYXZlIHRoZSBsYXN0IHBsb3QKb3AgPC0gcGFyKHVzcj1jKDAsMSwwLDEpLCAjIFJlc2V0IHRoZSBjb29yZGluYXRlcwogICAgICAgICAgeHBkPU5BKSAgICAgICAgICMgQWxsb3cgcGxvdHRpbmcgb3V0c2lkZSB0aGUgcGxvdCByZWdpb24KbGVnZW5kKC4xNSwtMC4wNCwgYygiQXJjaGFlYSIsIkJhY3RlcmlhIiwgIkV1a2FyeWEiLCAiTm8gQmxhc3QgSGl0IiksIGNvbD1jKCJyZWQiLCAiZ3JlZW4iLCAiYmx1ZSIsICJncmV5IiksIHBjaCA9IGMoMTYpLCBib3guY29sPU5BLCBjZXggPSAuOCwgaG9yaXogPSBULCB4LmludGVyc3AgPSBjKDAuMykpCmRldi5vZmYoKQoKCgpgYGAKCgoKCgoKCgoKCgojIyMgQ29sbGVjdCBuZXR3b3JrIHBhcmFtZXRlcnMKRnJvbSBuZXdseSBtYWRlIGdyYXBocyB0aGF0IGNvbnRyb2wgZm9yIG5ldHdvcmsgc2l6ZQoKIyMjIyBOdW1iZXIgb2YgZWRnZXMKCmBgYHtyfQojIHRvdGFsIG51bWJlciBvZiBlZGdlcyBpbiBmdWxsIGRhdGFzZXQgbmV0d29yayBvZiB0b3AgMzAwIE9UVXMvIEFTVnMKbGVuZ3RoKEUoZ3JwaC50b3AzMDApJHdlaWdodCkKIyBwZXJjZW50IG9mIG5lZyBlZGdlcyAKKHN1bShFKGdycGgudG9wMzAwKSR3ZWlnaHQ8MCkvbGVuZ3RoKEUoZ3JwaC50b3AzMDApJHdlaWdodCkpKjEwMAoKIyB0b3RhbCBudW1iZXIgb2YgZWRnZXMgaW4gMi1kb21haW4gZGF0YXNldCBuZXR3b3JrCmxlbmd0aChFKGdycGguMmRvbWFpbnMudG9wMzAwKSR3ZWlnaHQpCiMgcGVyY2VudCBvZiBuZWcgZWRnZXMgCihzdW0oRShncnBoLjJkb21haW5zLnRvcDMwMCkkd2VpZ2h0PDApL2xlbmd0aChFKGdycGguMmRvbWFpbnMudG9wMzAwKSR3ZWlnaHQpKSoxMDAKCiMgdG90YWwgbnVtYmVyIG9mIGVkZ2VzIGluIG94eWNsaW5lIG5ldHdvcmsKbGVuZ3RoKEUoZ3JwaC50b3AzMDAub3h5Y2xpbmUpJHdlaWdodCkKIyBwZXJjZW50IG9mIG5lZyBlZGdlcyAKKHN1bShFKGdycGgudG9wMzAwLm94eWNsaW5lKSR3ZWlnaHQ8MCkvbGVuZ3RoKEUoZ3JwaC50b3AzMDAub3h5Y2xpbmUpJHdlaWdodCkpKjEwMAoKIyB0b3RhbCBudW1iZXIgb2YgZWRnZXMgaW4gYW5veGljIG5ldHdvcmsKbGVuZ3RoKEUoZ3JwaC50b3AzMDAuYW5veGljKSR3ZWlnaHQpCiMgcGVyY2VudCBvZiBuZWcgZWRnZXMgCihzdW0oRShncnBoLnRvcDMwMC5hbm94aWMpJHdlaWdodDwwKS9sZW5ndGgoRShncnBoLnRvcDMwMC5hbm94aWMpJHdlaWdodCkpKjEwMAoKIyB0b3RhbCBudW1iZXIgb2YgZWRnZXMgaW4gbmV0d29yayB3aXRoIG9ubHkgbm9ucGFyYXNpdGUgZXVrcwpsZW5ndGgoRShncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpJHdlaWdodCkKIyBwZXJjZW50IG9mIG5lZyBlZGdlcyAKKHN1bShFKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcykkd2VpZ2h0PDApL2xlbmd0aChFKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcykkd2VpZ2h0KSkqMTAwCgojIHRvdGFsIG51bWJlciBvZiBlZGdlcyBpbiBuZXR3b3JrIHdpdGggb25seSBwYXJhc2l0ZSBldWtzCmxlbmd0aChFKGdycGgudG9wMzAwLnBhcmFzaXRlcykkd2VpZ2h0KQojIHBlcmNlbnQgb2YgbmVnIGVkZ2VzIAooc3VtKEUoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSR3ZWlnaHQ8MCkvbGVuZ3RoKEUoZ3JwaC50b3AzMDAucGFyYXNpdGVzKSR3ZWlnaHQpKSoxMDAKCmBgYAoKCgojIyMjIEVkZ2UgZGVuc2l0eQp0aGUgbnVtYmVyIG9mIGVkZ2VzIHJlbGF0aXZlcyB0byB0b3RhbCBudW1iZXIgb2YgcG9zc2libGUgZWRnZXMKYGBge3J9CmVkZ2VfZGVuc2l0eShncnBoLnRvcDMwMCkqMTAwCmVkZ2VfZGVuc2l0eShncnBoLjJkb21haW5zLnRvcDMwMCkqMTAwCmVkZ2VfZGVuc2l0eShncnBoLnRvcDMwMC5veHljbGluZSkqMTAwCmVkZ2VfZGVuc2l0eShncnBoLnRvcDMwMC5hbm94aWMpKjEwMAplZGdlX2RlbnNpdHkoZ3JwaC50b3AzMDAubm9ucGFyYXNpdGVzKSoxMDAKZWRnZV9kZW5zaXR5KGdycGgudG9wMzAwLnBhcmFzaXRlcykqMTAwCmBgYAoKIyMjIyBDb21wb25lbnQKVGhlIHNpemUgb2YgdGhlIGNvbXBvbmVudHMsIG9yICJjbHVtcHMsIiBpbiB0aGUgbmV0d29yaywgYW5kIGhvdyBtYW55IG1lbWJlcnMgaW4gZWFjaApgYGB7cn0KIyBmdWxsIGRhdGFzZXQKY29tcG9uZW50cyhncnBoLnRvcDMwMCkkbm8KY29tcG9uZW50cyhncnBoLnRvcDMwMCkkY3NpemUKCiMgMiBkb21haW5zCmNvbXBvbmVudHMoZ3JwaC4yZG9tYWlucy50b3AzMDApJG5vCmNvbXBvbmVudHMoZ3JwaC4yZG9tYWlucy50b3AzMDApJGNzaXplCgojIG94eWNsaW5lCmNvbXBvbmVudHMoZ3JwaC50b3AzMDAub3h5Y2xpbmUpJG5vCmNvbXBvbmVudHMoZ3JwaC50b3AzMDAub3h5Y2xpbmUpJGNzaXplCgojIGFub3hpYwpjb21wb25lbnRzKGdycGgudG9wMzAwLmFub3hpYykkbm8KY29tcG9uZW50cyhncnBoLnRvcDMwMC5hbm94aWMpJGNzaXplCgojIG5vbnBhcmFzaXRlcwpjb21wb25lbnRzKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcykkbm8KY29tcG9uZW50cyhncnBoLnRvcDMwMC5ub25wYXJhc2l0ZXMpJGNzaXplCgojIHBhcmFzaXRlcwpjb21wb25lbnRzKGdycGgudG9wMzAwLnBhcmFzaXRlcykkbm8KY29tcG9uZW50cyhncnBoLnRvcDMwMC5wYXJhc2l0ZXMpJGNzaXplCmBgYAoKVGhlIGFub3hpYyBuZXR3b3JrIGlzIG1vc3QgZGlzam9pbnRlZCwgd2l0aCA0OCBjbHVtcHMgYW5kIHRoZSBsYXJnZXN0IGNvbnRhaW5pbmcgb25seSAyNCBtZW1iZXJzLiBUaGUgbmV4dCBpcyBveHljbGluZSwgd2l0aCAzMiBjbHVtcHMgYW5kIHRoZSBsYXJnZXN0IHdpdGggMTQ0IG1lbWJlcnMuIFRoZW4gdGhlIGZ1bGwgZGF0YXNldCBoYXMgb25seSAyNyBjbHVtcHMgYW5kIHRoZSBsYXJnZXN0IGNsdW1wIGNvbnRhaW5zIDI2MiBtZW1iZXJzLgoKCgojIyMjIEF2ZXJhZ2UgcGF0aCBsZW5ndGgKUGF0aCBpcyB0aGUgc2hvcnRlc3QgZGlzdGFuY2UgYmV0d2VlbiB0d28gbm9kZXMgKGZld2VzdCBudW1iZXIgb2YgZWRnZXMpLiBBdmVyYWdlIHBhdGggbGVuZ3RoIG9mIGEgbmV0d29yayBnaXZlcyBhIHNlbnNlIG9mIGhvdyBjb25uZWN0ZWQgZXZlcnkgbm9kZSBpcyB0byBhbm90aGVyLiBVbmNvbm5lY3RlZCBodWJzIGluIHRoZSBuZXRvd3JrIHdpbGwgaGF2ZSAiaW5maW5pdGUiIHBhdGhzIGZyb20gb3RoZXIgaHVicy4gVGhlIGZ1bmN0aW9uIGBtZWFuX2Rpc3RhbmNlYCBpZ25vcmVzIHRoZSBpbmZpbml0ZSBlZGdlcyBhbmQgY2FsY3VsYXRlcyB0aGUgYXZlcmFnZSBvZiBhbGwgb3RoZXIgZWRnZXMKYGBge3J9Cm1lYW5fZGlzdGFuY2UoZ3JwaC50b3AzMDApCm1lYW5fZGlzdGFuY2UoZ3JwaC4yZG9tYWlucy50b3AzMDApCm1lYW5fZGlzdGFuY2UoZ3JwaC50b3AzMDAub3h5Y2xpbmUpCm1lYW5fZGlzdGFuY2UoZ3JwaC50b3AzMDAuYW5veGljKQptZWFuX2Rpc3RhbmNlKGdycGgudG9wMzAwLm5vbnBhcmFzaXRlcykKbWVhbl9kaXN0YW5jZShncnBoLnRvcDMwMC5wYXJhc2l0ZXMpCmBgYAoKCgoKIyMjIFdoaWNoIEFTVnMgYXJlIGluIHBvc2l0aXZlIHZzIG5lZ2F0aXZlIG5ldHdvcmtzPwpgYGB7cn0KIyBQb3NpdGl2ZSBuZXR3b3JrLSBmdWxsIGRhdGFzZXQKZ3JwaC5wb3NfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgudG9wMzAwLnBvcywgJ2JvdGgnKQpncnBoLnBvc19kZl92ZXJ0IDwtIGdycGgucG9zX2RmJHZlcnRpY2VzCiMgSG93IG1hbnkgU3luZGluaWFsZXMgYW5kIFBvbHljeXN0aW5lYT8KYXMuZGF0YS5mcmFtZSh0YWJsZShncnBoLnBvc19kZl92ZXJ0JCJ0YXhvbm9teS01IikpCiMgMjUgRGluby1Hcm91cC1JSQojIDEgRGluby1Hcm91cC1JCiMgMjggU3B1bWVsbGFyaWRhCgoKIyBOZWdhdGl2ZSBuZXR3b3JrLSBmdWxsIGRhdGFzZXQKZ3JwaC5uZWdfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgudG9wMzAwLm5lZywgJ2JvdGgnKQpncnBoLm5lZ19kZl92ZXJ0IDwtIGdycGgubmVnX2RmJHZlcnRpY2VzCiMgSG93IG1hbnkgU3luZGluaWFsZXMgYW5kIFBvbHljeXN0aW5lYT8KYXMuZGF0YS5mcmFtZSh0YWJsZShncnBoLm5lZ19kZl92ZXJ0JCJ0YXhvbm9teS01IikpCiMgOCBEaW5vLUdyb3VwLUlJCiMgMSBEaW5vLUdyb3VwLUkKIyA3IFNwdW1lbGxhcmlkYQoKCiMgUG9zaXRpdmUgbmV0d29yay0gb3h5Y2xpbmUKZ3JwaC5wb3NfZGYgPC0gaWdyYXBoOjphc19kYXRhX2ZyYW1lKGdycGgudG9wMzAwLm94eWNsaW5lLnBvcywgJ2JvdGgnKQpncnBoLnBvc19kZl92ZXJ0IDwtIGdycGgucG9zX2RmJHZlcnRpY2VzCiMgSG93IG1hbnkgU3luZGluaWFsZXMgYW5kIFBvbHljeXN0aW5lYT8KYXMuZGF0YS5mcmFtZSh0YWJsZShncnBoLnBvc19kZl92ZXJ0JCJ0YXhvbm9teS01IikpCiMgNDYgRGluby1Hcm91cC1JSQojIDUgRGluby1Hcm91cC1JCiMgMzAgU3B1bWVsbGFyaWRhCgoKIyBOZWdhdGl2ZSBuZXR3b3JrLSBveHljbGluZQpncnBoLm5lZ19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC50b3AzMDAub3h5Y2xpbmUubmVnLCAnYm90aCcpCmdycGgubmVnX2RmX3ZlcnQgPC0gZ3JwaC5uZWdfZGYkdmVydGljZXMKIyBIb3cgbWFueSBTeW5kaW5pYWxlcyBhbmQgUG9seWN5c3RpbmVhPwphcy5kYXRhLmZyYW1lKHRhYmxlKGdycGgubmVnX2RmX3ZlcnQkInRheG9ub215LTUiKSkKIyAzNyBEaW5vLUdyb3VwLUlJCiMgNCBEaW5vLUdyb3VwLUkKIyAxNyBTcHVtZWxsYXJpZGEKCgojIFBvc2l0aXZlIG5ldHdvcmstIGFub3hpYwpncnBoLnBvc19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC50b3AzMDAuYW5veGljLnBvcywgJ2JvdGgnKQpncnBoLnBvc19kZl92ZXJ0IDwtIGdycGgucG9zX2RmJHZlcnRpY2VzCiMgSG93IG1hbnkgU3luZGluaWFsZXMgYW5kIFBvbHljeXN0aW5lYT8KYXMuZGF0YS5mcmFtZSh0YWJsZShncnBoLnBvc19kZl92ZXJ0JCJ0YXhvbm9teS01IikpCiMgNyBEaW5vLUdyb3VwLUlJCiMgMCBEaW5vLUdyb3VwLUkKIyAxNSBTcHVtZWxsYXJpZGEKCgojIE5lZ2F0aXZlIG5ldHdvcmstIGFub3hpYwpncnBoLm5lZ19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC50b3AzMDAuYW5veGljLm5lZywgJ2JvdGgnKQpncnBoLm5lZ19kZl92ZXJ0IDwtIGdycGgubmVnX2RmJHZlcnRpY2VzCiMgSG93IG1hbnkgU3luZGluaWFsZXMgYW5kIFBvbHljeXN0aW5lYT8KYXMuZGF0YS5mcmFtZSh0YWJsZShncnBoLm5lZ19kZl92ZXJ0JCJ0YXhvbm9teS01IikpCiMgMSBEaW5vLUdyb3VwLUlJCiMgMCBEaW5vLUdyb3VwLUkKIyAyIFNwdW1lbGxhcmlkYQoKYGBgCgojIyMgV2hhdCBhcmUgdGhlIGludGVyZXN0aW5lZCBldWthcnlvdGljIGdyb3VwcyBjb25uZWN0ZWQgdG8/CmBgYHtyfQojIFJlbWFrZSBkYXRhZnJhbWUgb2JqZWN0cyBmcm9tIGZ1bGwgbmV0d29yayBncmFwaCBvYmplY3RzCmdycGgucG9zX2RmIDwtIGlncmFwaDo6YXNfZGF0YV9mcmFtZShncnBoLnRvcDMwMC5wb3MsICdib3RoJykKZ3JwaC5wb3NfZGZfdmVydCA8LSBncnBoLnBvc19kZiR2ZXJ0aWNlcwpncnBoLm5lZ19kZiA8LSBpZ3JhcGg6OmFzX2RhdGFfZnJhbWUoZ3JwaC50b3AzMDAubmVnLCAnYm90aCcpCmdycGgubmVnX2RmX3ZlcnQgPC0gZ3JwaC5uZWdfZGYkdmVydGljZXMKCiMgUG9zaXRpdmUgYXNzb2NpYXRpb25zOiBTeW5kaW5pYWxlcwojIFB1bGwgb3V0IG5hbWVzIG9mIFN5bmRpbmlhbGVzIGFuZCBTcHVtZWxsYXJpZGEgQVNWcwpncnBoLnBvc19kZl92ZXJ0X3N5bmQgPC0gZmlsdGVyKGdycGgucG9zX2RmX3ZlcnQsIGB0YXhvbm9teS00YCA9PSAiU3luZGluaWFsZXMiKQojIGZpbHRlciBncmFwaCB0byBpbmNsdWRlIG9ubHkgZWRnZXMgY29ubmVjdGVkIHRvIHRob3NlIG5vZGVzCmdycGgucG9zX3N5bmRfZWRnZXMgPC0gRShncnBoLnBvcylbZnJvbShncnBoLnBvc19kZl92ZXJ0X3N5bmQkbmFtZSldICMgZ2V0IGVkZ2VzCmdycGgucG9zLnN5bmRfc3ViZ3JhcGggPC0gc3ViZ3JhcGguZWRnZXMoZ3JwaC5wb3MsIGdycGgucG9zX3N5bmRfZWRnZXMpICMgZmlsdGVyIGdyYXBoCiMgZ2V0IHRheG9ub215IG9mIHJlbWFpbmluZyBub2RlcywgcmVtb3ZpbmcgdGhlIFN5bmRpbmlhbGVzIGZyb20gdGFibGUgKGVnLiBvbmx5IGNvbm5lY3RlZCBub2RlcykgYW5kIGdyb3VwaW5nIGJ5IHRheG9ub215CmdycGgucG9zX2RmX3ZlcnQgJT4lCiAgZmlsdGVyKGBuYW1lYCAlaW4lIFYoZ3JwaC5wb3Muc3luZF9zdWJncmFwaCkkbmFtZSAmICFgdGF4b25vbXktNGAgJWluJSBjKCJTeW5kaW5pYWxlcyIpKSAlPiUKICBjb3VudChgdGF4b25vbXktMmAsYHRheG9ub215LTNgLGB0YXhvbm9teS00YCxgdGF4b25vbXktNWAsIG5hbWUgPSAiY291bnQiLCBzb3J0ID0gVFJVRSkKCiMgUG9zaXRpdmUgYXNzb2NpYXRpb25zOiBTcHVtZWxsYXJpZGEKZ3JwaC5wb3NfZGZfdmVydF9zcHVtIDwtIGZpbHRlcihncnBoLnBvc19kZl92ZXJ0LCBgdGF4b25vbXktNWAgPT0gIlNwdW1lbGxhcmlkYSIpCmdycGgucG9zX3NwdW1fZWRnZXMgPC0gRShncnBoLnBvcylbZnJvbShncnBoLnBvc19kZl92ZXJ0X3NwdW0kbmFtZSldIApncnBoLnBvcy5zcHVtX3N1YmdyYXBoIDwtIHN1YmdyYXBoLmVkZ2VzKGdycGgucG9zLCBncnBoLnBvc19zcHVtX2VkZ2VzKSAKZ3JwaC5wb3NfZGZfdmVydCAgJT4lIAogIGZpbHRlcihgbmFtZWAgJWluJSBWKGdycGgucG9zLnNwdW1fc3ViZ3JhcGgpJG5hbWUgJiAhYHRheG9ub215LTVgICVpbiUgYygiU3B1bWVsbGFyaWRhIikpICU+JQogIGNvdW50KGB0YXhvbm9teS0yYCxgdGF4b25vbXktM2AsYHRheG9ub215LTRgLGB0YXhvbm9teS01YCwgbmFtZSA9ICJjb3VudCIsIHNvcnQgPSBUUlVFKQoKIyBOZWdhdGl2ZSBhc3NvY2lhdGlvbnM6IFN5bmRpbmlhbGVzCmdycGgubmVnX2RmX3ZlcnRfc3luZCA8LSBmaWx0ZXIoZ3JwaC5uZWdfZGZfdmVydCwgYHRheG9ub215LTRgID09ICJTeW5kaW5pYWxlcyIpCmdycGgubmVnX3N5bmRfZWRnZXMgPC0gRShncnBoLm5lZylbZnJvbShncnBoLm5lZ19kZl92ZXJ0X3N5bmQkbmFtZSldIApncnBoLm5lZy5zeW5kX3N1YmdyYXBoIDwtIHN1YmdyYXBoLmVkZ2VzKGdycGgubmVnLCBncnBoLm5lZ19zeW5kX2VkZ2VzKSAKZ3JwaC5uZWdfZGZfdmVydCAlPiUKICBmaWx0ZXIoYG5hbWVgICVpbiUgVihncnBoLm5lZy5zeW5kX3N1YmdyYXBoKSRuYW1lICYgIWB0YXhvbm9teS00YCAlaW4lIGMoIlN5bmRpbmlhbGVzIikpICU+JQogIGNvdW50KGB0YXhvbm9teS0yYCxgdGF4b25vbXktM2AsYHRheG9ub215LTRgLGB0YXhvbm9teS01YCwgbmFtZSA9ICJjb3VudCIsIHNvcnQgPSBUUlVFKQoKIyBOZWdhdGl2ZSBhc3NvY2lhdGlvbnM6IFNwdW1lbGxhcmlkYQpncnBoLm5lZ19kZl92ZXJ0X3NwdW0gPC0gZmlsdGVyKGdycGgubmVnX2RmX3ZlcnQsIGB0YXhvbm9teS01YCA9PSAiU3B1bWVsbGFyaWRhIikKZ3JwaC5uZWdfc3B1bV9lZGdlcyA8LSBFKGdycGgubmVnKVtmcm9tKGdycGgubmVnX2RmX3ZlcnRfc3B1bSRuYW1lKV0gCmdycGgubmVnLnNwdW1fc3ViZ3JhcGggPC0gc3ViZ3JhcGguZWRnZXMoZ3JwaC5uZWcsIGdycGgubmVnX3NwdW1fZWRnZXMpIApncnBoLm5lZ19kZl92ZXJ0ICU+JSAKICBmaWx0ZXIoYG5hbWVgICVpbiUgVihncnBoLm5lZy5zcHVtX3N1YmdyYXBoKSRuYW1lICYgIWB0YXhvbm9teS01YCAlaW4lIGMoIlNwdW1lbGxhcmlkYSIpKSAlPiUKICBjb3VudChgdGF4b25vbXktMmAsYHRheG9ub215LTNgLGB0YXhvbm9teS00YCxgdGF4b25vbXktNWAsIG5hbWUgPSAiY291bnQiLCBzb3J0ID0gVFJVRSkKCgojIEFsc28gY2tlY2sgb3V0IENhcmlhY290cmljaGVhIHRvIGh5cG90aGVzaXplIGFib3V0IHBvc3NpYmxlIHN5bWJpb3NpcyBwYXJ0bmVycwojIFBvc2l0aXZlIGFzc29jaWF0aW9ucyBvbmx5CmdycGgucG9zX2RmX3ZlcnRfY2FyaSA8LSBmaWx0ZXIoZ3JwaC5wb3NfZGZfdmVydCwgYHRheG9ub215LTRgID09ICJDYXJpYWNvdHJpY2hlYSIpCmdycGgucG9zX2NhcmlfZWRnZXMgPC0gRShncnBoLnBvcylbZnJvbShncnBoLnBvc19kZl92ZXJ0X2NhcmkkbmFtZSldIApncnBoLnBvcy5jYXJpX3N1YmdyYXBoIDwtIHN1YmdyYXBoLmVkZ2VzKGdycGgucG9zLCBncnBoLnBvc19jYXJpX2VkZ2VzKSAKZ3JwaC5wb3NfZGZfdmVydCAlPiUgCiAgZmlsdGVyKGBuYW1lYCAlaW4lIFYoZ3JwaC5wb3MuY2FyaV9zdWJncmFwaCkkbmFtZSAmICFgdGF4b25vbXktNGAgJWluJSBjKCJDYXJpYWNvdHJpY2hlYSIpKSU+JQogIGNvdW50KGB0YXhvbm9teS0yYCxgdGF4b25vbXktM2AsYHRheG9ub215LTRgLGB0YXhvbm9teS01YCwgbmFtZSA9ICJjb3VudCIsIHNvcnQgPSBUUlVFKQpgYGAKCgoKCiMjIyBBbmFseXplIG5vZGUtbGV2ZWwgbWVhc3VyZXMgZm9yIGtleXN0b25lLW5lc3MKQ2FsY3VsYXRlIDQgcGFyYW1ldGVycyBmb3IgZWFjaCBpbmRpdmlkdWFsIG5vZGU6CgotIGRlZ3JlZSAoZGUpID0gbnVtYmVyIG9mIGVkZ2VzIGNvbm5lY3RlZCB0byB0aGUgbm9kZQotIHN0cmVuZ3RoIChzdCkgPSBzdW0gb2YgdGhlIHdlaWdodHMgb2YgYWxsIHRoZSBlZGdlcyBjb25uZWN0ZWQgdG8gdGhlIG5vZGUKLSBiZXR3ZWVubmVzcyBjZW50cmFsaXR5IChiZSkgPSB0aGUgbnVtYmVyIG9mIHNob3J0ZXN0IHBhdGhzIChiZXR3ZWVuIGFsbCBvdGhlciBub2RlcykgdGhhdCBnbyB0aHJvdWdoIHRoZSBub2RlCi0gY2xvc2VuZXNzIGNlbnRyYWxpdHkgKGNjKSA9IGF2ZXJhZ2UgZGlzdGFuY2UgKG51bWJlciBvZiBlZGdlcykgb2YgdGhlIG5vZGUgdG8gYW55IG90aGVyIG5vZGUKLSBsb2NhbCBjbHVzdGVyaW5nIGNvZWZmaWNpZW50IChsLmNsdXN0ZXIpICwgYWthIHRyYW5zaXRpdml0eSA9IHRoZSBwcm9wb3J0aW9uIG9mIHR3byBub2RlcyB0aGF0IGFyZSBjb25uZWN0ZWQgYnkgYSB0aGlyZCBub2RlLCBvZiBiZWluZyBjb25uZWN0ZWQgdG8gZWFjaCBvdGhlciAoZWcuIGhvdyBtYW55IG9mIGEgbm9kZSdzICJmcmllbmRzIiBrbm93IGVhY2ggb3RoZXI/KQoKCmBgYHtyfQojIEZpcnN0IGNoYW5nZSB0aGUgd2VpZ2h0cyBvZiB0aGUgZWRnZXMgKHRoZSBzdHJlbmd0aCBvZiBhc3NvY2lhdGlvbikgdG8gYWJzb2x1dGUgdmFsdWUuIFRoaXMgd29uJ3Qgd29yayBpZiBuZWdhdGl2ZSBlZGdlIHdlaWdodHMgYXJlIGxlZnQgd2l0aCB0aGUgbmVnYXRpdmUgc2lnbnMKRShncnBoLnRvcDMwMCkkd2VpZ2h0IDwtIGFicyhFKGdycGgudG9wMzAwKSR3ZWlnaHQpCgojIGNhbGN1bGF0ZSBwYXJhbWV0ZXJzCm5hbWVzPVYoZ3JwaC50b3AzMDApJG5hbWUKZGU9ZGVncmVlKGdycGgudG9wMzAwKQpzdD1ncmFwaC5zdHJlbmd0aChncnBoLnRvcDMwMCkKYmU9YmV0d2Vlbm5lc3MoZ3JwaC50b3AzMDAsIG5vcm1hbGl6ZWQ9VCkKY2MgPSBjbG9zZW5lc3MoZ3JwaC50b3AzMDApCmwuY2x1c3Rlcj10cmFuc2l0aXZpdHkoZ3JwaC50b3AzMDAsICJsb2NhbCIpCgoKIyBhc3NlbWJsZSBkYXRhc2V0IGFuZCBtYXRjaCBmdWxsIHRheG9ub215CmZ1bGxkYXRlc2V0X25vZGVfbWVhc3VyZXMgPC0gZGF0YS5mcmFtZShJRD1uYW1lcywgZGVncmVlPWRlLCBzdHJlbmd0aD1zdCwgYmV0d2Vlbm5lc3M9YmUsIGNsb3NlbmVzcyA9IGNjLCBjbHVzdGVyaW5nX2NvZWZmaWNpZW50ID0gbC5jbHVzdGVyKSAKCiMgUHV0IGJhY2sgYmFjIHRheGFvbm9teQp0ZW1wMSA8LSBsZWZ0X2pvaW4oZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlc1sxOmRpbShvdHVfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDApKVsxXSxdLCBiYWNfdGF4b25vbXksIGJ5ID0gYygiSUQiID0gIiNPVFUgSUQiKSkgCiMgZGVsZXRlICJUYXhvbm9teS05IiBhbmQgInJlZmluZWQgVGF4b25vbXkiIGNvbHVtbnMgCnRlbXAxIDwtIHNlbGVjdCh0ZW1wMSwgLSJ0YXhvbm9teS05IiwgLSJSZWZpbmVkIHRheG9ub215IikKCgp0ZW1wMiA8LSBsZWZ0X2pvaW4oZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlc1tzdW0oZGltKG90dV90YWJsZShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpWzFdLDEpOnN1bShkaW0ob3R1X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSlbMV0sZGltKG90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApKVsxXSksXSwgYXJjaF90YXhvbm9teSwgYnkgPSBjKCJJRCIgPSAiI09UVSBJRCIpKSAKCgp0ZW1wMyA8LSBsZWZ0X2pvaW4oZnVsbGRhdGVzZXRfbm9kZV9tZWFzdXJlc1tzdW0oZGltKG90dV90YWJsZShwc19hcmNoX3BydW5lZF8zZG9tYWluc190b3AxMDApKVsxXSwgZGltKG90dV90YWJsZShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpWzFdLDEpOnN1bShkaW0ob3R1X3RhYmxlKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpWzFdLCBkaW0ob3R1X3RhYmxlKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSlbMV0sZGltKG90dV90YWJsZShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpWzFdKSxdLCBldWtfdGF4b25vbXksIGJ5ID0gYygiSUQiID0gIiNBU1YgSUQiKSkgCiMgUmVuYW1lIGNvbCBuYW1lcyB0byBtYXRjaCB0aG9zZSBmcm9tIEJhYyBhbmQgQXJjaAp0ZW1wMyA8LSB0ZW1wMyAlPiUKICByZW5hbWUoInRheG9ub215LTEiID0gS2luZ2RvbSwgInRheG9ub215LTIiID0gU3VwZXJncm91cCwgInRheG9ub215LTMiID0gRGl2aXNpb24sICJ0YXhvbm9teS00IiA9IENsYXNzLCAidGF4b25vbXktNSIgPSBPcmRlciwgInRheG9ub215LTYiID0gRmFtaWx5LCAidGF4b25vbXktNyIgPSBHZW51cywgInRheG9ub215LTgiID0gU3BlY2llcykKCiMgY29tYmluZSBiYWNrIGFsbCAzIGRvbWFpbnMsIHdpdGggbmV3IG5hbWVzIGFzIHJvdyBuYW1lcyBpbiBhIGRhdGFmcmFtZQpmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzIDwtIHJiaW5kKHRlbXAxLCB0ZW1wMiwgdGVtcDMpCmZ1bGxkYXRlc2V0X25vZGVfbWVhc3VyZXMKYGBgCgpQbG90IGJldHdlZW5lc3MgdnMgZGVncmVlIGZvciBlYWNoIG5vZGUuIAotIFRpcHRvbiBldCBhbC4gYXJndWUgdGhhdCBub2RlcyB3aXRoIGhpZ2ggYmV0d2Vlbm5lc3MgYXJlICJib3R0bGVuZWNrcyIgb3IgaW1wb3J0YW50IGNvbm5lY3RvcnMgYW5kIG5vZGVzIHdpdGggaGlnaCBkZWdyZWUgYXJlICJodWJzIgotIEJlcnJ5IGV0IGFsLiBhcmd1ZSB0aGF0IG5vZGVzIHdpdGggbG93IGJldHdlZW5uZXNzLCBoaWdoIGRlZ3JlZSwgaGlnaCBjbG9zZW5lc3MsIGFuZCBoaWdoIHRyYW5zaXRpdml0eSBhcmUgY2FuZGlkYXRlIGtleXN0b25lIHNwZWNpZXMKICAtIEFkZCBpbiBjbG9zZW5lc3MgaW50byB0aGUgbm9kZSdzIHBsb3RseSBsYWJlbCBzaW5jZSB0aGVzZSBkb24ndCB2YXJ5IG11Y2ggbm9kZS10by1ub2RlIGFuZCB3b3VsZG4ndCBtYWtlIHNlbnNlIHRvIHBsb3QKYGBge3J9CiMgcmVwbGFjZSBOQSBpbiB0YXhvbm9teSB3aXRoIHVuaWRlbnRpZmllZCAKIyByZW1vdmUgbm9kZXMgd2l0aCAwIGJldHdlZW5uZXNzIChjYW4ndCBjYWxjdWxhdGUgbG9nMTAgb2YgMCkKIyByZXBsYWNlIE5hTiBjbHVzdGVyaW5nIGNvZWZzIHdpdGggMApmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzIDwtIGZ1bGxkYXRlc2V0X25vZGVfbWVhc3VyZXMgJT4lIAogIHJlcGxhY2UoaXMubmEoLiksICJ1bmlkZW50aWZpZWQiKSAlPiUKICBmaWx0ZXIoIWJldHdlZW5uZXNzID09IDApIAoKIyBnZXQgZW5vdWdoIGNvbG9ycyBhbmQgcmFuZG9tbHkgcmVhcnJhbmdlIHNvIHRoZXkgYXJlIGVhc2llciB0byBzZXBhcmF0ZSBvbiB0aGUgcGxvdApteWNvbG9ycyA8LSBjb2xvclJhbXBQYWxldHRlKGJyZXdlci5wYWwoMTIsICJQYWlyZWQiKSkobGVuZ3RoKHVuaXF1ZShmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzJGB0YXhvbm9teS0zYCkpKQpzZXQuc2VlZCgxMjMpCm15Y29sb3JzIDwtICBzYW1wbGUobXljb2xvcnMpCgojIHBsb3Qgd2l0aCBwbG90bHkgYW5kIHNvIEkgY2FuIGhvdmVyIG92ZXIgcG9pbnRzIGFuZCBkZXRlcm1pbmUgd2hpY2ggdGF4YSB0aGV5IGFyZQpwIDwtIGdncGxvdChmdWxsZGF0ZXNldF9ub2RlX21lYXN1cmVzLCBhZXMoeCA9IGRlZ3JlZSwgeSA9IGJldHdlZW5uZXNzLCBJRCA9IElELCBzaGFwZSA9IGB0YXhvbm9teS0xYCwgYHRheG9ub215LTJgID0gYHRheG9ub215LTJgLCBjb2xvciA9IGB0YXhvbm9teS0zYCwgYHRheG9ub215LTRgID0gYHRheG9ub215LTRgLCBgdGF4b25vbXktNWAgPSBgdGF4b25vbXktNWApKSArCiAgZ2VvbV9wb2ludChzaXplID0gNCkgKwogIHNjYWxlX3lfY29udGludW91cyh0cmFucz0nbG9nMTAnKSArCiAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcyA9IG15Y29sb3JzKSArCiAgdGhlbWUobGVnZW5kLnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArCiAgdGhlbWVfYncoKQpwCmdncGxvdGx5KHAsIHRvb2x0aXAgPSBjKCJJRCIsInRheG9ub215LTIiLCAidGF4b25vbXktMyIsICJ0YXhvbm9teS00IiwgInRheG9ub215LTUiKSkKCmBgYAoKTWFrZSBzdGF0aWMgZmlndXJlIGZvciBtYW51c2NyaXB0CmBgYHtyfQoKcDIgPC0gZ2dwbG90KGZ1bGxkYXRlc2V0X25vZGVfbWVhc3VyZXMsIGFlcyh4ID0gZGVncmVlLCB5ID0gYmV0d2Vlbm5lc3MsIHNoYXBlID0gYHRheG9ub215LTFgLCBjb2xvciA9IGB0YXhvbm9teS0zYCkpICsKICBnZW9tX3BvaW50KHNpemUgPSA0KSArCiAgc2NhbGVfeV9jb250aW51b3VzKHRyYW5zPSdsb2cxMCcpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gbXljb2xvcnMsIG5hbWUgPSAiIikgKwogIHNjYWxlX3NoYXBlX21hbnVhbCh2YWx1ZXMgPSBjKDE5LDE3LDE1LDE4KSwgbmFtZSA9ICIiKSArCiAgdGhlbWUobGVnZW5kLnRpdGxlPWVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT04KSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplPTgsIGFuZ2xlID0gNDUsIGhqdXN0ID0gMSksCiAgICAgICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gOCksCiAgICAgICAgbGVnZW5kLm1hcmdpbj1tYXJnaW4oMCwwLDAsMiksCiAgICAgICAgbGVnZW5kLmJveC5tYXJnaW49bWFyZ2luKC0xMCwtMTAsLTEwLC0xMCksCiAgICAgICAgcGxvdC5tYXJnaW49Z3JpZDo6dW5pdChjKDAsMCwwLDApLCAibW0iKSkgKwogIHRoZW1lX2J3KCkgCnAyCgpnZ3NhdmUoImZpZ3VyZXMvYmV0d2Vlbm5lc3NfdnNfZGVncmVlX3YyLmVwcyIscDIsIHdpZHRoID0gMTAsIGhlaWdodCA9IDYuNSwgdW5pdHMgPSBjKCJpbiIpKQoKYGBgCgoKCiAgCiMjIyBIb3cgbWFueSBlZGdlcyBkb2VzIGVhY2ggZ3JvdXAgaGF2ZSBhcyBhbiBhZ2dyZWdhdGUKYGBge3J9CiMgcmVtYWtlIGBhbGxfdGVtcGAgbWF0cml4IHdpdGggdGF4b25vbXkgZnJvbSB0aGUgdG9wIDMwMCB0YXggdGFibGUKYmFjX3RvcDEwMF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYmFjX3BydW5lZF8zZG9tYWluc190b3AxMDApKSAlPiUKICBtdXRhdGUobmFtZSA9IHJvd25hbWVzKHRheF90YWJsZShwc19iYWNfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkpKQphcmNoX3RvcDEwMF90YXhfdGFibGUgPC0gYXMuZGF0YS5mcmFtZSh0YXhfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkpCmV1a190b3AxMDBfdGF4X3RhYmxlIDwtIGFzLmRhdGEuZnJhbWUodGF4X3RhYmxlKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSkgJT4lCiAgbXV0YXRlKG5hbWUgPSByb3duYW1lcyh0YXhfdGFibGUocHNfZXVrX3BydW5lZF8zZG9tYWluc190b3AxMDApKSkKI2xpbmsgZ3JhcGggZGF0YSBmcmFtZSB0byBmb3JtYXR0ZWQgdGF4b25vbXkgdGFibGVzCmJhY190ZW1wIDwtIGxlZnRfam9pbihncnBoLnRvcDMwMF9kZiR2ZXJ0aWNlc1sxOm50YXhhKHBzX2JhY19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSxdLApiYWNfdG9wMTAwX3RheF90YWJsZSwgYnkgPSAibmFtZSIpCiMgZGVsZXRlIGNvbHVtbnMgdGhhdCBkb24ndCBtYXRjaCBvdGhlciB0YXggdGFibGVzCmJhY190ZW1wIDwtIHNlbGVjdChiYWNfdGVtcCwgLSJ0YXhvbm9teS05IiwgLSJSZWZpbmVkIHRheG9ub215IikKCmFyY2hfdGVtcCA8LSBsZWZ0X2pvaW4oZ3JwaC50b3AzMDBfZGYkdmVydGljZXNbbnRheGEocHNfYXJjaF9wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKSsxOm50YXhhKHBzX2FyY2hfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCksXSxhcmNoX3RvcDEwMF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQoKZXVrX3RlbXAgPC0gbGVmdF9qb2luKGdycGgudG9wMzAwX2RmJHZlcnRpY2VzW250YXhhKHBzX2V1a19wcnVuZWRfM2RvbWFpbnNfdG9wMTAwKStudGF4YShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCkrMTpudGF4YShwc19ldWtfcHJ1bmVkXzNkb21haW5zX3RvcDEwMCksXSwgZXVrX3RvcDEwMF90YXhfdGFibGUsIGJ5ID0gIm5hbWUiKQoKIyByZW5hbWUgY29sdW1uIG5hbWVzIGluIGV1ayB0YWJsZSB0byBtYXRjaCBvdGhlcnMKZXVrX3RlbXAgPC0gZXVrX3RlbXAgJT4lCiAgICByZW5hbWUoInRheG9ub215LTEiID0gS2luZ2RvbSwgInRheG9ub215LTIiID0gU3VwZXJncm91cCwgInRheG9ub215LTMiID0gRGl2aXNpb24sICJ0YXhvbm9teS00IiA9IENsYXNzLCAidGF4b25vbXktNSIgPSBPcmRlciwgInRheG9ub215LTYiID0gRmFtaWx5LCAidGF4b25vbXktNyIgPSBHZW51cywgInRheG9ub215LTgiID0gU3BlY2llcykKCiMgYnVpbGQgZnVsbCBkYXRhZnJhbWUgd2l0aCBhbGwgMyBkb21haW5zCmFsbF90ZW1wIDwtIHJiaW5kKGJhY190ZW1wLCBhcmNoX3RlbXAsIGV1a190ZW1wKQoKCgoKIyBleHRyYWN0IGRlZ3JlZSBmcm9tIGdyYXBoIGFuZCBtYWtlIGludG8gZGF0YWZyYW1lCmRlX2RmIDwtIGFzLmRhdGEuZnJhbWUoZGUpCmRlX2RmJG5hbWUgPC0gcm93bmFtZXMoZGVfZGYpCmRlX2RmIDwtIGxlZnRfam9pbihkZV9kZiwgYWxsX3RlbXAsIGJ5ID0gIm5hbWUiKQoKZGVfZGYgJT4lCiAgZ3JvdXBfYnkoYHRheG9ub215LTFgKSAlPiUKICBzdW1tYXJpc2UoZGVncmVlc3VtID0gc3VtKGRlKSkgJT4lCiAgYXJyYW5nZShkZXNjKGRlZ3JlZXN1bSkpCgpkZV9kZiAlPiUKICBncm91cF9ieShgdGF4b25vbXktMmApICU+JQogIHN1bW1hcmlzZShkZWdyZWVzdW0gPSBzdW0oZGUpKSAlPiUKICBhcnJhbmdlKGRlc2MoZGVncmVlc3VtKSkKCmRlX2RmICU+JQogIGdyb3VwX2J5KGB0YXhvbm9teS0zYCkgJT4lCiAgc3VtbWFyaXNlKGRlZ3JlZXN1bSA9IHN1bShkZSkpICU+JQogIGFycmFuZ2UoZGVzYyhkZWdyZWVzdW0pKQoKZGVfZGYgJT4lCiAgZ3JvdXBfYnkoYHRheG9ub215LTRgKSAlPiUKICBzdW1tYXJpc2UoZGVncmVlc3VtID0gc3VtKGRlKSkgJT4lCiAgYXJyYW5nZShkZXNjKGRlZ3JlZXN1bSkpCgpkZV9kZiAlPiUKICBncm91cF9ieShgdGF4b25vbXktNWApICU+JQogIHN1bW1hcmlzZShkZWdyZWVzdW0gPSBzdW0oZGUpKSAlPiUKICBhcnJhbmdlKGRlc2MoZGVncmVlc3VtKSkKCmBgYAoKCgoKIyMgUmVwb3J0IHNvbWUgbWVhbiBhYnVuZGFuY2VzClRvIGluY2x1ZGUgaW4gbWFpbiB0ZXh0CmBgYHtyfQptZWFuX2RpdmlzaW9uX3JhIDwtIGxlZnRfam9pbihkaXZpc2lvbl9kZiwgYXNfdGliYmxlKHRheG9ub215LCByb3duYW1lcyA9ICJBU1YiKSwgYnkgPSAiQVNWIikgJT4lCiAgc2VsZWN0KC1BU1YsIC1DbGFzcywgLU9yZGVyLCAtRmFtaWx5LCAtR2VudXMsIC1TcGVjaWVzKSAKCm1lYW5zIDwtIG1lYW5fZGl2aXNpb25fcmEgJT4lCiAgc2VsZWN0KC1LaW5nZG9tLC1TdXBlcmdyb3VwLCAtRGl2aXNpb24pICU+JQogIHJvd3dpc2UoKSAlPiUKICBzdW1tYXJpc2UoJ01lYW4gUkEnID0gbWVhbihjX2Fjcm9zcyhldmVyeXRoaW5nKCkpKSkKCnN0ZXJyIDwtIG1lYW5fZGl2aXNpb25fcmEgJT4lCiAgc2VsZWN0KC1LaW5nZG9tLC1TdXBlcmdyb3VwLCAtRGl2aXNpb24pICU+JQogIHJvd3dpc2UoKSAlPiUKICBzdW1tYXJpc2UoJ1NFJyA9IHNkKGNfYWNyb3NzKGV2ZXJ5dGhpbmcoKSkpL3NxcnQoMikpCgptZWFuX2RpdmlzaW9uX3JhJCdNZWFuIFJBJyA8LSBtZWFucyQnTWVhbiBSQScKbWVhbl9kaXZpc2lvbl9yYSQnU0UnIDwtIHN0ZXJyJCdTRScKCmBgYAoK